【结帖】控制数据集数据

cdz0451

刚才告诉的代码，写后出现问题，可能是 没有获取到变量的值
代码如下 请帮忙调试下

procedure TZBXXCK.FormDocCreate(Sender: TObject);
var
  strDate:double;
begin
  strDate:= Business.Data.SysSrv.SysService.Time ;
  DataSetBroker1.DataSet.Filtered:=false;
  DataSetBroker1.DataSet.Filter:='ZBRQ= strDate ';

  DataSetBroker1.DataSet.Filtered:=true;

end;

zfang

楼主，建议你先看一下delphi方面的语法吧！你上面的代码，编译都会报错的！
正确写法如下
procedure TZBXXCK.FormDocCreate(Sender: TObject);
var
  strDate:TDateTime;//double也可以
begin
  strDate:= Business.Data.SysSrv.SysService.Time ;
  DataSetBroker1.DataSet.Filtered:=false;
  DataSetBroker1.DataSet.Filter:='ZBRQ= '''+Business.System.SysUtils.DateToStr(Business.Data.SysSrv.SysService.Time)+''' ';

DataSetBroker1.DataSet.Filtered:=true;

end;

cdz0451

这个 那不是 不用定义变量了 strDate

zfang

可以定义，也可以不用！性质是一样的，看自己需要

cdz0451

a ，好的 谢谢

zfang

不客气，那结帖了！