【结帖】自增序号的问题？**

tdwoo

为什么我的自增序号，最大为10 ，从1-10，之后的都是10；

我的代码：



procedure TGZXX.DataSetGZGHPJXXNewRecord(DataSet: TDataSet);
var
  V: object;
begin
  V := DataSet.CalcAggregate(GZGHPJXXMaxLineNum, 0);
  if Variants.VarToStr(V) = '' then
    DataSet.FieldByName('XH').AsInteger := 1
  else
    DataSet.FieldByName('XH').AsInteger := SysUtils.StrToInt(Variants.VarToStr(V)) + 1;
end;

问题在哪里？

tdwoo

procedure TGZXX.InfoCreate(Sender: TObject);
begin
     GZGHPJXXMaxLineNum:=DataSetGZGHPJXX.Aggregates.Add;
     GZGHPJXXMaxLineNum.Expression := 'max(XH)';
end;

shangxy

楼主我这里执行是正常的啊。
implementation
var GZGHPJXXMaxLineNum : TBaseAggregate;

procedure TYWXX1.DataSetBZSJJ1NewRecord(DataSet: TDataSet);
var
  V: object;
begin
  V := DataSet.CalcAggregate(GZGHPJXXMaxLineNum, 0);
  if Variants.VarToStr(V) = '' then
    DataSet.FieldByName('ZD3').AsInteger := 1
  else
    DataSet.FieldByName('ZD3').AsInteger := SysUtils.StrToInt(Variants.VarToStr(V)) + 1;
end;

procedure TYWXX1.InfoCreate(Sender: TObject);
begin
     GZGHPJXXMaxLineNum:=DataSetBZSJJ1.Aggregates.Add;
     GZGHPJXXMaxLineNum.Expression := 'max(zd3)';
end;

tdwoo

我这里出错。

tdwoo

我查看，是数据类型的问题。

我原来是 字符型

改成 整数 就可以了。


谢谢！！！！

结！