有关query的Query1CalcFields事件

[pzh508]

请问各位大侠们：我在query的Query1CalcFields函数里，怎么能知道当前的记录索引？

[pzh508]

晕，没人答

[yimibaer]

1:Ado_query 新建Integer字段 RecNo
2:在Ado_query的CalcFields事件中添加
If Ado_query.Active then
begin
If Ado_query.RecNo=-1 then
Ado_query.FieldByName('RecNo').AsInteger:=Ado_query.RecNo+2
Else
Ado_query.FieldByName('RecNo').AsInteger:=Ado_query.RecNo;
end;