DataReport使用手记

最新推荐文章于 2017-02-27 09:26:05 发布

原创

最新推荐文章于 2017-02-27 09:26:05 发布 · 3.8k 阅读

4 ·

CC 4.0 BY-SA版权

文章标签：

#textbox #integer #vb #excel #string #报表

这篇博客记录了在VB程序中使用DataReport实现报表功能的过程。由于部署环境限制，作者选择了VB自带的DataReport而非Excel。通过实验发现，DataReport的数据源应直接链接到RecordSet，DataMember可不赋值，DataField设置为字段名。博客中提供了详细的源代码，展示了如何创建TextBox和Label来显示字段值和字段名。

     前几天，帮同事改一个VB的课业程序，具体任务就是在程序中添加报表功能，由于考虑到部署环境的问题，所以没有采用我以前惯用的Excel实现，而采用了同事提出的VB自带的DataReport实现，查到的资料大多数都是在DataReport数据源上连接DataEnvironment，MSDN也有这方面的一篇文章，可惜英文版和中文版一样的模糊，移到程序中也无法运行，后来根据实验中的错误提示在网上查到一个提问题的帖子，在他的帖子中倒是找到了正确的方法，原来直接把数据源链接为RecordSet就可以了，DataMember可以不用赋值，DataField赋值为字段名称，DataReport的空间索引必须以控件名称索引即可，下面是源代码。我在details Section按顺序建立了8个TextBox和Label接受字段值和字段名。
    Set DataReport.DataSource = rs_data2
    If rs_data2.RecordCount = 0 Then
        Exit Sub
    End If
    Dim i As Integer
    Dim j As String

   rs_data2.MoveFirst
   Do While Not rs_data2.EOF
      For i = 0 To 7
        With DataReport
            j = i + 1
   &n

最低0.47元/天解锁文章