在table1控件鼠标右击,在fields editer中 添加 all fields
这时你的ADOQuery的所有字段都显示出来了
这是在添加new field
例如:number字段
然后在table1控件的onCalcFields事件中加入你的代码
使number的值满足你的要求
     table1.Fieldsbyname[number].value:=...;这时你要运行程序,你的number字段已经自动添加到了DBGrid中的最后一列。
如果希望number在第一列,可以更改dbgrid中number的顺序为第一位,也可以回头在上面的fields editer中,将number的顺序改为第一位。