TDBGRID加一列

[host]

请问我要TDBGRID上加一列表示从数据库中查询取回的按序排列记录的序号，如1..1000，应该如何编程。谢谢

[ZengXi]

你在数据集控件上加就可以了阿

[ZengXi]

表中如果有id（autoincrese）字段的话，你就把这个字段也查询出来，不久可以来

[host]

ZengXi(var Mm: TObject)
当然是没有id（autoincrese）字段

[yzysoftware]

可以现实的：在Delphi中为query控件加上一列，全体是双击Query控件，点右键选择News fields，具体怎么实现，一看便知。

[host]

我想问的是编码是怎么写的

[ZengXi]

不是有个那个“列”（具体叫什么忘了）就是你双击建立的那个字段对象
你可以在程序中动态创建这个对象，（你如果在ide中创立了，你可以在interface中看见这些对象）然后再初始化一些属性,既然你没有id字段，那可以把它设置成计算字段

[johnsonrao]

加一计算字段 如： FID，

定义一个全局变量：Integer ID，并在外部赋初值 ID:=1;

在DataSet 的 OnCalcFields 事件中加入下段代码：

With DataSet do
begin
FieldByName('FID').asInteger:=ID;
ID:=ID+1;
end;
---------------------

[host]

johnsonrao(johnson)
你的程序好象调不通呀，ID号会一直加上去

[host]

以前有这种问题的一个帖子，谁能告诉我URL地址，必给分