郁闷：

Question

T_zb_0502: TADOTable;procedure TF_Query.BitBtn1Click(Sender: TObject);
begin
  MainObject.F_main.T_zb_0502.Locate('no', VarArrayOf([edit1.Text]), [loPartialKey]);
 end;
[Error] T_Query.pas(41): Undeclared identifier: 'loPartialKey'
[Error] T_Query.pas(41): Incompatible types: 'TLocateOption' and 'Integer'帮我解决一下。谢谢

Answer 1

1.uses db
2.MainObject.F_main.T_zb_0502.Locate('no', VarArrayOf([edit1.Text]), [loPartialKey]);   [loPartialKey] 应为Integer类型。

Answer 2

2.参数[loPartialKey]位置 应为Integer类型。

Answer 3

procedure TF_Query.BitBtn1Click(Sender: TObject);begin
   MainObject.F_main.T_zb_0502.Locate('no', VarArrayOf([edit1.Text]),0);
end;procedure TF_Query.BitBtn1Click(Sender: TObject);
begin
  MainObject.F_main.T_zb_0502.Locate('no', VarArrayOf([edit1.Text]),[0]);
end;都不行

Answer 4

[Error] T_Query.pas(44): Incompatible types: 'TLocateOption' and 'Integer'

Answer 5

结贴，可以了MainObject.F_main.T_zb_0502.Locate('no', VarArrayOf([edit1.Text]),[]);