procedure TForm1.DBListBox1DblClick(Sender: TObject);
var i:integer;
begin
for i:=0 to (dblistbox1.Items.Count-1) do
begin
if dblistbox1.Selected[i] then
begin
adotable1.Edit;
adotable1.FieldByName('ID').AsString:=dblistbox1.Items.Strings[i];
adotable1.Post;
end;
end;
end;
我想通过双击dblistbox1来修改adotable1里的纪录
可是我双击dblistbox1没反应啊