//多选行取值
procedure TForm1.Button1Click(Sender: TObject);
Var
i: Integer;
begin
for i := 0 to DBGrid1.SelectedRows.Count - 1 do
Begin
DBGrid1.DataSource.DataSet.GotoBookmark(DBGrid1.SelectedRows.Items[i]);
Showmessage(DBGrid1.DataSource.DataSet.FieldByName('wid').Value);
End;
end;
TDBGrid
最新推荐文章于 2023-08-24 22:15:13 发布