先把多选dgMultiSelect设置成True; procedure TForm1.Button1Click(Sender: TObject); var I:integer; begin for I := 0 to 3 do begin if ADOTable1.Locate('ID',I*2,[]) then begin DBGridEh1.SelectedRows.CurrentRowSelected:=true; end; end; ShowMessage(IntToStr(DBGridEh1.SelectedRows.Count)); 这里显示为4个。 end; 第1,3,5,7行选中..
DBGridEh1.DataSource.DataSet.Locate('ID',j,[]);
然后再将那一行选种状态设置为true
DBGridEh1.Selection.Rows.CurrentRowSelected:=True;
也可以,关键是要先定位行。
定位到行,选定那一行,然后定位到另一行,再选定,这样就选了两行啦。
procedure TForm1.Button1Click(Sender: TObject);
var
I:integer;
begin
for I := 0 to 3 do
begin
if ADOTable1.Locate('ID',I*2,[]) then
begin
DBGridEh1.SelectedRows.CurrentRowSelected:=true;
end;
end;
ShowMessage(IntToStr(DBGridEh1.SelectedRows.Count)); 这里显示为4个。
end;
第1,3,5,7行选中..