请各位大侠看看http://www.csdn.net/expert/TopicView.asp?id=309868

Question

直接这么写试试～～
procedure TForm1.Query1CalcFields(DataSet: TDataSet);
begin
  query1mingci.asinteger:=query1.recno;
end;

Answer 1

query1mingci一定是自己增加的计算字段呀～～呵呵～～

Answer 2

to tikkypeng:
  你的方法我已经试过了，不行！
  显示出来的都是－1！

Answer 3

呵呵，能不能在TQuery和TDataSource之间在用两个控件。TDatasetProvider和TClientDataset，把OnCalcFields事件改道TClientDataset上，因为ClientDataset.recno不太可能是-1，你试试看吧。

Answer 4

这个方法是我刚想的，自己没试过，不过我觉得应该可以。因为Delphi对MIDAS的支持比普通的数据库操作要好的多。