以下是选择一行的情况: 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 GotoBook(pointer(DBGrid1.SelectedRows.Items[i])); str1:=ADOQuery1.FieldByName('×Ö¶Î1').asstring; str2:=ADOQuery1.FieldByName('×Ö¶Î2').asstring; next; end; end; end;
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
GotoBook(pointer(DBGrid1.SelectedRows.Items[i]));
str1:=ADOQuery1.FieldByName('×Ö¶Î1').asstring;
str2:=ADOQuery1.FieldByName('×Ö¶Î2').asstring;
next;
end;
end;
end;
楼上的,就是因为数据量大过头咯。。八十个字段。。
写sql语句写到我快晕了