掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
動的に１次インデックスを作成するには? (ID:20200)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
DL6Pro,BDE,XPProです。Paradoxでテーブルを作成しています。 DBEを使って、２ジインデックスNameを作成しています。 ここで、フォームに、ComboBox、Editをおき、ComboBoxにはdropdownイベント時にテーブルのName項目の項目が入りようにしてあります。 テーブルの項目にない値が、editに入ったら、新しくテーブル（DM009.TbCarCorp）にこの値を追加したいと思い、以下のコードを書きました。１回目は通るのですが、２回目以降はインデックスが古くなっていますとエラーが発生します。 やりたいことは、テーブルになかった項目を追加し、新たにComboBoxにその項目も表示したいと考えています。 動的にインデックスは作成しないといけないのでしょうか? どなたか、ご教示下さい。 procedure TFormEnt.Button1Click(Sender: TObject); Var S : String; begin S := Edit1.Text; DM009.TbCarCorp.Open; begin if not DM009.TbCarCorp.FindKey([S]) then DM009.TbCarCorp.IndexName :=''; DM009.TbCarCorp.Insert; DM009.TbCarCorp.Edit; DM009.TbCarCorp.FieldByName('Name').Text := S; DM009.TbCarCorp.Post; ShowMessage(S + 'を新たに登録しました'); end; DM009.TbCarCorp.Close; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.