盒子论坛 v2.1

各位高手，请问，我在做日报表时，出现了在第一次点击时无内容显示，再点时才会有记录，这是为什么呢？
程序原码如下：
procedure TbbglForm.rbbSPBClick(Sender: TObject);
begin
  date1:=strtodatetime(datetostr(dd.Date)+' 00:00:00');
  date2:=strtodatetime(datetostr(dd.Date)+' 23:59:59');
  with datamodule2.nyrbbQuery do
  begin
    close;
    sql.Clear;
    sql.Add('select grq_bh,grq_xm ,grq_xb,grq_mz,grq_sfzh,');
    sql.Add('rsdj_ywh,rsdj_sydw ,rsdj_rssj,rsdj_gyjsbh,');
    sql.Add('rsxz_mc,ajlx_ajlxmc,sshj_mc from grqkb ,rsdjb,sshjb,ajlxb,
             rsxzb');
    sql.Add('where grq_bh=rsdj_bh and rsxz_bh=rsdj_rsxz
              and jlx=ajlx_ajlxbh and sshj_bh=rsdj_sshjbh');
    sql.Add('and rsdj_rssj between :date1 and :date2');
    prepare;
    params[0].AsDateTime:=date1;
    params[1].AsDateTime:=date2;
    open;
  end;
  if datamodule2.nyrbbQuery.RecordCount<>0 then
  begin
    nyrbbform.QuickRep1.Preview;
    nyrbbform.QRLabel1.Caption:='日报表';
  end
  else
    application.messageBox('今日没有入所人员！' , '提示！',mb_ok);
end;
----------------------------------------------
-我是菜菜鸟，我怕谁！

作者：

heihei_76 (小黑)	★☆☆☆☆	-
	盒子活跃会员

2003/12/16 9:31:10

1楼：

你設置段點跟蹤一下﹐是否執行了Preview?如果執行了﹐如果執行了﹐你將Preview上面的代碼改了或則刪除看看。另外﹐Preview窗口是系統自帶的還是你自己寫的
----------------------------------------------
-

﹗﹗﹗

作者：

zhangzy (zzy(蓝月牙儿))	★☆☆☆☆	-
	普通会员

2003/12/16 9:34:00

2楼：

是系统自带的呀，我可没工夫去写他的，呵呵！
是不是记录有可能有问题呀！
----------------------------------------------
-我是菜菜鸟，我怕谁！

信息

登陆以后才能回复