5,388
社区成员
发帖
与我相关
我的任务
分享如何从dbgrid中取出数据？
table1与table2是主从表关系，table1的记录指针移动的时，连接table2的dbgrid显出的数据就不同，我现在想把dbgrid中的数据读出来然后写到excel中去，各位高手，怎么获得数据。写excel我会了。帮忙啊。顺祝节日快乐！
...全文
请发表友善的回复…
发表回复
kcb111 2001-10-23
- 打赏
- 举报
用下面的方法试试。
////////////////BEGIN
dbgrid1.DataSource.DataSet.First;
while (not dbgrid1.DataSource.DataSet.Eof) do
begin
s1:=dbgrid1.Columns[1].Field.asstring;
s2:=dbgrid1.Columns[2].Field.asstring;
dbgrid1.DataSource.DataSet.Next;
end;
////////////////END
////////////////BEGIN
dbgrid1.DataSource.DataSet.First;
while (not dbgrid1.DataSource.DataSet.Eof) do
begin
s1:=dbgrid1.Columns[1].Field.asstring;
s2:=dbgrid1.Columns[2].Field.asstring;
dbgrid1.DataSource.DataSet.Next;
end;
////////////////END
tikkypeng 2001-10-23
- 打赏
- 举报
? := DBGrid1.Fields[i].DisplayText;
lovewangj 2001-10-23
- 打赏
- 举报
你是怎么取得子集的？只要数据集没有被Close再Open，jianping0(ljp)的方法是可以的。
xfchai 2001-10-23
- 打赏
- 举报
为什么没有人回答?
xfchai 2001-10-06
- 打赏
- 举报
to jianping0
你没有看懂我的问题，dbgird中显示的数据是table2数据的子集，我只想输出dbgrid中的数据，不想全部输出来。
你没有看懂我的问题，dbgird中显示的数据是table2数据的子集，我只想输出dbgrid中的数据，不想全部输出来。
jianping0 2001-10-06
- 打赏
- 举报
with table2 do
begin
first;
while not eof do
begin
for i:=0 to table2.fieldcount-1 do
?:=table2.fields[i].value;
next;
end;
end;
begin
first;
while not eof do
begin
for i:=0 to table2.fieldcount-1 do
?:=table2.fields[i].value;
next;
end;
end;
zds0707 2001-10-06
- 打赏
- 举报
用TXDBGrid
