DataReport使用手记

06年的一篇blog,转过来:

   前几天,帮同事改一个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
            .Sections("Section1").Controls("Label" + j).Caption = rs_data2.Fields(i).Name + ":"
            .Sections("Section1").Height = 60
            If Len(rs_data2.Fields(0)) <> 0 Then
                .Sections("Section1").Controls("Text" + j).DataField = rs_data2.Fields(i).Name
            Else
                .Sections("Section1").Controls("Text" + j).DataField = ""
            End If
        End With
  
     Next i
     rs_data2.MoveNext
   Loop
   DataReport.Show

  • 0
    点赞
  • 0
    评论
  • 2
    收藏
  • 扫一扫,分享海报

参与评论 您还未登录,请先 登录 后发表或查看评论
©️2022 CSDN 皮肤主题:大白 设计师:CSDN官方博客 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值