多选可以,如果我删除多选的记录好像就不行了。
这个过程是如何触发的呢?是不是和这个过程有关?
谢谢。
procedure TMainForm.GridMultiSelect(ADataGrid: TDataGrid; AMemo: TMemo);
var
i, j: Integer;
s: string;
begin
s := '';
if ADataGrid.SelectedCount > 0 then
with ADataGrid.DataSource.DataSet do
for i := 0 to ADataGrid.SelectedCount - 1 do
begin
Bookmark := ADataGrid.SelectedRows;
for j := 0 to FieldCount - 1 do
begin
if (j > 0) then s := s + ', ';
s := s + Fields[j].AsString;
end;
AMemo.Lines.Add(s);
s := '';
end;
end;