procedure TSJWG1.Button1Click(Sender: TObject);
var
i, j: Integer;
s: string;
begin
if DataGrid1.SelectedCount > 0 then
with DataGrid1.DataSource.DataSet do
for i := 0 to DataGrid1.SelectedCount - 1 do
begin
Bookmark := DataGrid1.SelectedRows;
for j := 0 to FieldCount - 1 do
begin
if (j > 0) then s := s + ', ';
s := s + Fields[j].AsString;
end;
Memo1.Lines.Add(s);
s := '';
end;
end;
没有问题,我测试了。楼主应该设置了别的什么属性了吧。
最初由 lixy 发布
[B]procedure TSJWG1.Button1Click(Sender: TObject);
var
i, j: Integer;
s: string;
begin
if DataGrid1.SelectedCount > 0 then
with DataGrid1..