以下我单个Table的做法:
Private Sub ExportReport()
Dim mobjRptViewer As Viewer.Win.Viewer = Nothing
Dim rptForm As New frmYSMOGP0010_03()
Try
Me.mreaderRpt = New StringReader(My.Resources.resYSMOGP0010.rptYSMOGP0010_01)
Me.mpageRpt = New PageReport(mreaderRpt)
AddHandler Me.mpageRpt.Document.LocateDataSource, AddressOf OnLocateDataSource
Private Sub OnLocateDataSource(sender As Object, args As LocateDataSourceEventArgs)
Dim dataSourceName As String
Try
dataSourceName = args.DataSet.Name
args.Data = mstrJsonData
Catch ex As Exception
Throw ex
End Try
End Sub