继承后的数据查找找不出东西

yellowspring · 发表于 2010-1-15 12:41:10

我在父窗体写了一个查找函数
procedure TCT_BZGFH_BZGZJL.Query;
begin
TBizDataSet(dsbBZGZJL.DataSet).SQLFiltered := False;
TBizDataSet(dsbBZGZJL.DataSet).SQLFilter := 'RJLX ='+IntToStr(myParam.iRJLX);
TBizDataSet(dsbBZGZJL.DataSet).SQLFiltered := True;
if not dsbBZGZJL.DataSet.Active then
dsbBZGZJL.DataSet.Open;
end;
子窗体重写了这个函数
procedure TCT_BZGFH_BZTX.Query;
begin
TBizDataSet(dsbBZGZJL.DataSet).SQLFiltered := False;
//TBizDataSet(dsbBZGZJL.DataSet).SQLFilter := 'RJLX ='+IntToStr(myParam.iRJLX)+' AND BZID='''+ui.ClassID+'''';
TBizDataSet(dsbBZGZJL.DataSet).SQLFilter := 'RJLX=1';
TBizDataSet(dsbBZGZJL.DataSet).SQLFiltered := True;
if not dsbBZGZJL.DataSet.Active then
dsbBZGZJL.DataSet.Open;
end;
然后运行子窗体，数据就查不出来了，这是什么原因。我用PL/Sql是能查出来的

lixy · 发表于 2010-1-15 13:08:21

请加一个showmessage，看子窗体是否调用了重写的这个函数。

yellowspring · 发表于 2010-1-15 14:32:39

是重写了
我在这个函数上加过断点，并运行了。函数确实执行，但是dsbBZGZJL.DataSet.RecordCount却是0

lixy · 发表于 2010-1-15 14:53:22

看看datafetch.commandtext

yellowspring · 发表于 2010-1-15 15:03:46

是空串。这个有什么影响吗？为什么继承后会是空串呢？

lixy · 发表于 2010-1-15 15:27:30

你还没open吧？open后再看这个

yellowspring · 发表于 2010-1-15 15:35:03

查出来的结果：select * from bzgfh_bzgzjlb where ((bzgfh_bzgzjlb.guid = 'CC...'))
我看了一下表的guid，没有这个啊，这是怎么查出来的？

atiger · 发表于 2010-1-15 16:20:07

procedure TCT_BZGFH_BZTX.Query;
begin
// inherited; //加上这句
TBizDataSet(dsbBZGZJL.DataSet).SQLFiltered := False;
//TBizDataSet(dsbBZGZJL.DataSet).SQLFilter := 'RJLX ='+IntToStr(myParam.iRJLX)+' AND BZID='''+ui.ClassID+'''';
TBizDataSet(dsbBZGZJL.DataSet).SQLFilter := 'RJLX=1';
TBizDataSet(dsbBZGZJL.DataSet).SQLFiltered := True;
if not dsbBZGZJL.DataSet.Active then
dsbBZGZJL.DataSet.Open;
end;

yellowspring · 发表于 2010-1-15 16:33:19

还是不行，那个GUID数据里都没有的，不知道怎么生成的

atiger · 发表于 2010-1-15 16:49:33

这个功能是流程中的功能吗？如果是应该是流程字段的值，用于过滤数据集，如果不需要这个，那么就在功能上定义一个信息策略，选中禁止流程过滤选项就可以了

		自动登录	找回密码
密码			立即注册