以下是选择一行的情况:
procedure TForm1.Button1Click(Sender: TObject);
var str1,str2:string;
begin
str1:=ADOQuery1.FieldByName('字段1').asstring;
str2:=ADOQuery1.FieldByName('字段2').asstring;
end;
选择多行:
procedure TForm1.Button1Click(Sender: TObject);
var str1,str2:string;
i:integer;
begin
with ADOQuery1 do
begin
for i:=0 to DBGrid1.SelectedRows.Count-1 do
begin
GotoBookmark(pointer(DBGrid1.SelectedRows.Items[i]));
str1:=ADOQuery1.FieldByName('×Ö¶Î1').asstring;
str2:=ADOQuery1.FieldByName('×Ö¶Î2').asstring;
next;
end;
end;
end;