执行
T:=QTo.Fields[0].AsInteger;
时出错,说QTo.Fields[0].AsInteger值非法,值超范围了怎么办?
(Fields[0]字符型,值是非'0'开头十位阿拉伯数字,T:integer)
T:=QTo.Fields[0].AsInteger;
时出错,说QTo.Fields[0].AsInteger值非法,值超范围了怎么办?
(Fields[0]字符型,值是非'0'开头十位阿拉伯数字,T:integer)
MainF: TMainF;
I,J,P:Integer; //I:计数器;J:源表中的记录数;T:临时;P:主键最大值
T:Int64;
begin
……
OpenQuery(QTo,'select max(EmpId),Max(PK) from S_EmpInfo');
T:=int64(QTo.Fields[0].AsInteger);
……
end;
改成了这样也是一样的报错!
MainF: TMainF;
I,J,P:Integer; //I:计数器;J:源表中的记录数;T:临时;P:主键最大值
T:Int64;
begin
……
OpenQuery(QTo,'select max(EmpId),Max(PK) from S_EmpInfo');
T:=StrToInt64(QTo.Fields[0].AsString);
……
end;