【结贴】Integer类型变量

vagrant

关键就是引用integer类型要怎么引用？

zfang

。。。你把你改后的sql贴出来看看。

vagrant

'select (max(yp_gxh)+1) as gxh '+
                         'from ypgyb_table where yp_ypdh='''+ypdh+''' and yp_gybc='+gybc+' group by yp_ypdh,yp_gybc';

vagrant

或者是直接这样也不行 var
  lQuery : TQuery;
begin
  lQuery := TQuery.Create(nil);
  try
    lQuery.ConnectionString :='DATABASEURL=Biz:\XTGLPT_SPACE\XXXT_SPACE\XXXTSJK_DATA.DATABASE';
    lQuery.CommandText := 'select (max(yp_gxh)+1) as gxh'+
                         ' from ypgyb_table group by yp_ypdh,yp_gybc';
    lQuery.open;
  finally
    lQuery.Free;
  end;
  if DataSetYPGYSJJ.FieldByName('yp_gxh').IsNull then
  begin
    with DataSetYPGYSJJ do
    begin
      if not active then open;
      //dialogs.ShowMessage(Fmaxgxh);
      edit;
      //dialogs.ShowMessage(Fmaxgxh(FieldByName('yp_ypdh').AsString,FieldByName('yp_gybc').AsString));
      FieldByName('yp_gxh').AsInteger :=lQuery.FieldByName ('gxh').AsInteger ; //Fmaxgxh(FieldByName('yp_ypdh').AsString,FieldByName('yp_gybc').AsInteger );
    end;
  end;

zfang

打个断点，调试运行，Ctrl+F7看看这个sql，放数据库执行看看是否报错。

vagrant

数据库里同样报错

vagrant

我认为问题的关键是怎样引用integer类型的变量

zfang

看例子

vagrant

就是要这个啦，搞定，谢谢！可以结贴

zfang

请楼主多在业务时间学习学习吧。