【结贴】[请求]过滤不出数据

Crazy_wen2006

一段代码实现当窗体打开时自动呈现昨天的数据，但每次打开都是新的空白数据集，请问怎么回事：
代码如下：
procedure TDLRBB.BizFormShow(Sender: TObject);
var
  lMStartTime, lYStartTime, lYesterDay: TDateTime;
  lYFilterSql, lMFilterSql: string;
begin
  lYesterDay := DateOf(IncDay(SysService.Time, -1));

  TSqlDataSet(dsbMaster.DataSet).SQLFiltered := False;
  TSqlDataSet(dsbMaster.DataSet).SQLFilter := ' RQ = to_date('''+sysutils.DateTimeToStr(lYesterDay)+''',''yyyy-mm-dd'')';
  TSqlDataSet(dsbMaster.DataSet).SQLFiltered := true;
  dsbMaster.DataSet.Open;
  TSqlDataSet(dsbSource.DataSet).SQLFiltered := False;
  TSqlDataSet(dsbSource.DataSet).SQLFilter := ' RQL = to_date('''+sysutils.DateTimeToStr(lYesterDay)+''',''yyyy-mm-dd'')';
  TSqlDataSet(dsbSource.DataSet).SQLFiltered := true;
  dsbSource.DataSet.Open;

  //有今天的报表记录
if not dsbMaster.DataSet.IsEmpty then
  begin
    if dsbMaster.DataSet.FieldByName('SHZT').AsString = '已审核' then
    begin
      Panel1.Caption := dsbMaster.DataSet.FieldByName('RQ').AsString + '的报表已经生成,并已审核。';
      Panel1.Visible := true;
      dsbSource.DataSet.ReadOnly := True;
      tlbGSP.Enabled := False;
    end else
    if dsbMaster.DataSet.FieldByName('SHZT').AsString = '未通过' then
    begin
      Panel1.Caption := '请修改数据后重新生成报表，再提交值长审核。';
      Panel1.Visible := true;
    end;
  end
  else
  //还没有今天的报表记录
  begin

    Panel1.Caption := '报表还没有生成，请抄表。';
    Panel1.Visible := true;
  end;
end;

jiahaiming

在数据集OPEN后，设置断点查看下真正执行的SQL语句
TSqlDataSet(dsbMaster.DataSet).DataFetch.CommandText

Crazy_wen2006

TSqlDataSet(dsbMaster.DataSet).DataFetch.CommandText

这个怎么看，我找不到

shangxy

调试的时候断点设置在数据集打开以后，然后使用ctrl+F7看。

Crazy_wen2006

好像没啥东西

shangxy

输入类似3楼的内容看看查询出的sql。。

Crazy_wen2006

空字符串哦

zhangxupeng

CommandText里是空的，自然就取不到任何数据，里面应该是有SQL语句的

查一下代码为什么没能给CommandText赋上值

Crazy_wen2006

代码的跟另外一个程序一样。另外一个都可以看到，这个弄不明白怎么回事，可以远程帮忙看下吗？

shangxy

你看你表达式里面写的dsbMaster，应该是dbssource吧？