选定DBGrid的所有记录,肯定是对所有记录进行操作,只要利用DBGrid的DataSet的属性就可以了, DataSet.First While not DataSet.Eof do begin //处理代码 DataSet.Next; end;
DBGird的option要有dgMultiSelect procedure TForm1.Button1Click(Sender: TObject); begin with DBGrid1.DataSource.DataSet do try DisableControls; First; while not Eof do begin DBGrid1.SelectedRows.CurrentRowSelected:=true; Next; end; finally EnableControls; end; end;
DataSet.First; while not Fadq.Eof do begin DBGRID1.SelectedRows.CurrentRowSelected:=true; DataSet.Next; end; DataSet.EnableControls;
DataSet.First
While not DataSet.Eof do
begin
//处理代码
DataSet.Next;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
with DBGrid1.DataSource.DataSet do
try
DisableControls;
First;
while not Eof do
begin
DBGrid1.SelectedRows.CurrentRowSelected:=true;
Next;
end;
finally
EnableControls;
end;
end;
while not Fadq.Eof do
begin
DBGRID1.SelectedRows.CurrentRowSelected:=true;
DataSet.Next;
end;
DataSet.EnableControls;