Question

delphi中怎样表示DBGrid当前行的下一行

FNum := strtoint( RzDBGrid1.Columns.Grid.Fields[8].Text);//当前行
.......
HNum := strtoint(RzDBGrid1.Columns.Grid.Fields[8].Text);//下一行

Answer 1

可以用ADOQuery循环
ADOQuery.First;
While not ADOQuery.eof do
Begin
...........
ADOQery.next;
End;

应该不会死循环。

追问

这种的遍历，我会的！想使用DefaultDrawColumnCell；给条件表格注色，需要上下行比较！使ADOQuery遍历，会死循环~

追答

你现在怎么表示的呢，你可以在移动到下一行前判断一下，是不是超出范围。

Answer 2

操作数据集，如果数据集为table
则
FNum := table.Fields[8].asinteger;//当前行
table.next;
HNum := table.Fields[8].asinteger;//下一行

追问

ADOQuery
我试过ADOQuery.next;死循环

Answer 3

dbgrid只是显示，条件显然是在dataset中判断