|
constructor TWZLYXXGL.Create(Acontext:Tcontext);
var
id :string;
begin
inherited;
id:=TContextUtils.GetOperator(Context).ID;
dsbmaster.DataSet.Filtered:=false;
dsbmaster.DataSet.Filter:='fbillno in '
+ '('
+ ' select a.fbillno from ic_stockbill a ,ic_stockbillentry b, T_ICITEM c,T_STOCK d '
+ 'where a.fbillno=b.fbillno and a.FCLASS= 0 '
+ 'and b.fnumber=c.fguid and c.FSTOCKID=d.fguid '
+ 'and d.FKEEPER='''+id+''''
+ ' group by a.fbillno '
+ ')';
dsbmaster.DataSet.Filtered:=true;
dsbmaster.DataSet.open;
end;
在查询分析器里 是可以通过的 但执行的时候 提示field 'select ' not found ” 是什么地方出错了呢 谢谢!比较急。 |
|