【结】关于QUERY问题**

sxl841117

var
  lQuery: TQuery;
  lStr1,lStr2,lStr3,ldept,ltime,lDBURL : String;
begin
    try
lDBURL:='DATABASEURL=Biz:\HGOPERATION\HGOPERATIONDB.DATABASE';
     ldept:=TContextUtils.GetDept(context).DisplayName;
     ltime:=SysUtils.DateToStr(syssrv.SysService.Time);
     lStr1:=ldept.Substring(0,2);
     lStr2:=ltime.Substring(2,2);
     lQuery := TQuery.Create(nil);
     lQuery.ConnectionString := lDBURL;
lQuery.CommandText :=
                          'select * from QMINFOTABLE where '+
                          'ReportSerialNo like ''%''+lStr1+''%'' ';       
     lQuery.Open;
     lStr3:='00'+SysUtils.IntToStr(lQuery.RecordCount+1);
     dsbMaster.DataSet.edit;
     dsbMaster.DataSet.FieldByName('ReportSerialNo').Asstring :=lStr2+lStr1+lStr3 ;
    finally
     lQuery.Free;
    end;

以上代码编译通过， 在执行的过程中读过红色的一行时就报错
列名：lStr1 无效
这是怎么回事？

sxl841117

补充一下 调试显示 lStr1字符串是有正确值的

Akon

楼主,你在 ldept 上设一个断点,看一下ldept上有值吗?还有你这段在代码在那写的?

shangxy

lQuery.CommandText :=
                          'select * from QMINFOTABLE where '+
                          'ReportSerialNo like ''%'+lStr1+'%'' ';

这样看看。

sxl841117

lQuery.CommandText :=
                          'select * from QMINFOTABLE where '+
                          'ReportSerialNo like ''%'+lStr1+'%'' ';
这样可以了 谢谢！