我的版本2827。
我在从窗体A调用窗体B,并传递一个参数C,窗体B根据C进行数据过滤。但是窗体B得到是空白无数据的。根据我的测试,C是传到了B的。
这是B的代码:
procedure TMSDJ.BizFormCreate(Sender: TObject);
var
strParam:string;
begin
strParam:=FuncBroker.Func.Parameters;
lForm:=GZJD.TGZJD.Create(self.Context);
if strparam ='new' then
begin
DataSetBroker.DataSet.Append;
exit;
end
else
begin
TSQLDataSet(DataSetBroker.DataSet).SQLFilter:='JLBH='''+strparam+'''';
TSQLDataSet(DataSetBroker.DataSet).SQLFiltered:=true;
end;
end;