5,388
社区成员
发帖
与我相关
我的任务
分享
var
i,j : integer;
begin
for j := 0 to clientdataset.recordcount -1 do
begin
for i:=0 to clientdataset.FieldCount-1 do
stringgrid.cells[j,i]:= clientdataset.fields[i].asstring;
clientdataset.next;
end;
end;