activereport vb.net应用.rdlx项目

onOneLight

墨衍会员 · AI 创作全网分发码龄8年

关注

原创最新推荐文章于 2025-08-08 11:36:22 发布 1.2k 阅读 AI 写同款· GEO 优化 ›

7.1华为OD机试真题新系统 - 仓库盘点 (Java/Py/C/C++/Js/Go) 7.1华为OD机试真题新系统 - 仓库盘点 (Java/Py/C/C++/Js/Go) 阅读详情

1项目结构

在这里插入图片描述
2.引用的文件

其中mysql连接时注意引入专门驱动
3.app.config文件内容

<?xml version="1.0" encoding="utf-8" ?>
<configuration>
    <startup>
        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5.2" />
    </startup>
</configuration>

4.common.vb内容

Imports MySql.Data.MySqlClient

Public Class Common
    Public Const m_strConn As String = "database=activereport;server=localhost;Uid=root;Pwd=123456;charset=utf8"
End Class

5.创建ReportForm.vb
在这里插入图片描述
6.reportform内容如下Imports MySql.Data.MySqlClient
Imports System.Globalization

Public Class ReportForm
Dim conn As New MySqlConnection(Common.m_strConn)
#Region “帐票名”

Private Sub btnTest_Click(sender As Object, e As EventArgs) Handles btnTest.Click
    Dim rpt As GrapeCity.ActiveReports.PageReport = New GrapeCity.ActiveReports.PageReport(New System.IO.FileInfo("创建的.rdlx路径"))
    Dim runt As GrapeCity.ActiveReports.Document.PageDocument = New GrapeCity.ActiveReports.Document.PageDocument(rpt)
    AddHandler runt.LocateDataSource, AddressOf runt_LocateDataSource

    Dim pageToReport As PageToReport = New PageToReport
    pageToReport.exportRdlPDF(runt, "pdf命名")
End Sub

Private Sub runt_LocateDataSource(ByVal sender As Object, ByVal args As GrapeCity.ActiveReports.LocateDataSourceEventArgs)
    If args.DataSourceName = "activereport" Then
        Select Case args.DataSetName
            Case "绑定数据集1"
                args.Data = Get数据集1名Data()
            Case "绑定数据集2"
                args.Data = Get数据集2名Data()
        End Select
    End If
End Sub

Private Function Get数据集1名Data() As DataTable
    Dim resData As DataTable = New DataTable
    resData.Columns.Add(New DataColumn("項目1"))
    resData.Columns.Add(New DataColumn("項目2"))
    resData.Columns.Add(New DataColumn("項目3"))
    Dim sqlAdapter As New MySqlDataAdapter("sql查询语句", conn)
    Dim ds As New DataSet
    Try
        sqlAdapter.Fill(ds)
        If IsDBNull(ds) = False AndAlso ds.Tables IsNot Nothing AndAlso ds.Tables.Count > 0 Then
            resData = ds.Tables(0)
        End If
    Catch ex As Exception

    End Try
    Return resData
End Function

Private Function Get数据集2名Data() As DataTable
    Dim resData As DataTable = New DataTable
    resData.Columns.Add(New DataColumn("項目1"))
    resData.Columns.Add(New DataColumn("項目2"))
    resData.Columns.Add(New DataColumn("項目3"))
    Dim sqlAdapter As New MySqlDataAdapter("sql文查询语句", conn)
    Dim ds As New DataSet
    Try
        sqlAdapter.Fill(ds)
        If IsDBNull(ds) = False AndAlso ds.Tables IsNot Nothing AndAlso ds.Tables.Count > 0 Then
            resData = ds.Tables(0)
        End If
    Catch ex As Exception

    End Try
    Return resData
End Function

#End Region
End Class
7.创建.rdlx文件
在这里插入图片描述
8.在rdlx文件中使用tablix控件

9.绑定数据源
注意使用dataser Provider方式
10.添加数据集

11.绑定数据元素

12.reportform数据与.rdlx数据间的绑定
创建PageToreport.vb

Public Class PageToReport
 Public Sub exportRdlPDF(_reportDef As GrapeCity.ActiveReports.Document.PageDocument, filename As String)
        Dim filePath As String = "创建的数据源路径"
        If (False = System.IO.Directory.Exists(filePath)) Then
            System.IO.Directory.CreateDirectory(filePath)
        End If

        Dim pdf As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport

        pdf.Export(_reportDef, filePath & filename & ".PDF")
        MessageBox.Show("保存成功)
    End Sub



End Class

流程完成