グリッドに表示したデータをテーブルに追加/修正するには？ (ID：5949)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

自己レスです。
現状としては、単独での修正処理はできています。
追加処理は、一度更新処理を行うと可能となり、
最初に追加処理を行うとエラーとなります。
エラーになる原因がわかりません。

以下にソースを掲載させていただきます。

procedure TForm.ButtonClick(Sender: TObject);
begin
  if Table.Locate(NO',DBEdit.Text,[loCaseInsensitive]) then
    //----- 更新処理 -----//
    begin
      with Query do begin
        if Modified then
          begin
            UpdateSQL.ModifySQL.Clear();
            UpdateSQL.ModifySQL.Add('update文');
            Post;
          end;
        if State in [dsInsert, dsEdit] then
          Cancel;
        if UpdatesPending then
          Database.ApplyUpdates([Query]);
      end;
    end
  else
    //----- 追加処理 -----//
    begin
      with Query do begin
        if Modified then
          begin
            UpdateSQL.InsertSQL.Clear();
            UpdateSQL.InsertSQL.Add('insert文');
            Post;
          end;
        if State in [dsInsert, dsEdit] then
          Cancel;
        if UpdatesPending then
            Database.ApplyUpdates([Query]);
      end;
    end;
end;

どなたかお分かりになる方いらっしゃいましたら、
ご指導宜しくお願いします。

←解決時は質問者本人がここをチェックしてください。

戻る