您的位置：程序门 -> vb -> 数据库（包含打印，安装，报表)



datareport问题。明明记录集中有几十条记录，但在datareport1中显示的是一张空表，一个字符也没有显示出来？请看代码


[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]


datareport问题。明明记录集中有几十条记录，但在datareport1中显示的是一张空表，一个字符也没有显示出来？请看代码
发表于：2007-04-17 15:34:43 楼主
'数据库是1001id.mdb，其中“物理书”是表，该表有三个字段：书名     书号     价格

private   sub   form_load（)
        dbpath   =   app.path   +   "\1001id.mdb "
        dim   cnstring   as   string,   strsql   as   string
        dim   adobtophr1   as   new   adodb.recordset
        dim   cn   as   new   adodb.connection
       
        cnstring   =   （ "provider=microsoft.jet.oledb.4.0;data   source= "   &   dbpath   &   ";jet   oledb:database   password= "   &   dbpassword)
        set   cn   =   new   connection
        cn.cursorlocation   =   aduseclient
        cn.open   cnstring
        strsql   =   "select   *   from   物理书 "
        adobtophr1.open   strsql,   cn,   adopenstatic,   adlockoptimistic
       
        set   datareport1.datasource   =   adobtophr1
        datareport1.show   1
       
end   sub
发表于：2007-04-19 22:48:061楼 得分:0
绑定字段了么
发表于：2007-04-20 08:44:522楼 得分:0
dim   rp   as   new   craxdrt.report
dim   cryapp   as   new   craxdrt.application
   
      'screen.mousepointer   =   11
      set   rp   =   cryapp.openreport（app.path   &   "\出库汇总表.rpt ")
     
                rp.database.setdatasource   adors
                frm_report.crviewer.reportsource   =   rp
                frm_report.crviewer.viewreport
                'screen.mousepointer   =   1
                frm_report.show   1
发表于：2007-04-22 09:44:353楼 得分:0
在报表中把text   or   label   的属性绑定到记录的值上，就可以了！
发表于：2007-04-23 15:14:394楼 得分:0
上面各位说的可能会出现你所说的情况，如果你检查了他们所说的情况后问题仍然存在的话。其实，我还遇到一种情况：

尽管“记录查找”代码在“datareport1.show”之前，明明查找到了很多记录，但是报表显示空白，也有可能显示部分记录，但是我用“f8”调试的时候到“datareport1.show”就能够正常显示。

因此,我推测:在某些时候计算机对“datareport1.show”的反映速度是比执行纪录查找快的多,尤其对比较复杂的数据内容查找的时候更是如此,刚遇到时，我也不明白这个原因。为了证明我的推测，我在“datareport1.show”代码之前加了一句“延时1至2秒”的代码，让cpu等等。然后该问题就不存在了。我不知道这是否是证明我的推测正确，反正问题是解决了。
发表于：2007-05-11 12:36:025楼 得分:0
楼主根本没有设计报表当然没有数据了。
只有数据源不行，还要设计显示那些数据，在什么地方显示。没有代码也一样。
发表于：2007-05-11 14:24:426楼 得分:0
你在报表细节中添加一个text控件，代码中加一条：
datareport1.sections（ "section1 ").controls（ "text1 ").datafield   =   "一个字段名称 "

set   datareport1.datasource   =   adobtophr1
datareport1.show   1
发表于：2007-05-11 14:55:217楼 得分:0
该回复于2007-12-28 18:05:40被管理员或版主删除
发表于：2007-05-12 19:13:418楼 得分:0
该回复于2007-12-28 18:05:40被管理员或版主删除
发表于：2007-05-13 13:19:369楼 得分:0
该回复于2007-12-28 18:05:40被管理员或版主删除

相关文章
其他资讯

快速检索
分类导航标签a

最新资讯
热门点击