Dim dsdataSet As New DataSet() Dim oRpt As New rptClient() '已建立的报表rptClient 请读者自行填充数据集dsdataSet '使用“报表引擎”对象模型将填充的数据集,传递给报表 oRpt.SetDataSource(dsdataSet.Tables(0)) ' 将带有数据的报表对象绑定到 Windows 窗体查看器,rptVew(CrystalReportViewer控件) rptVew.ReportSource = oRpt
七、用程序改变报表中text的文本 代码如下: Dim GetTextObject As TextObject ' 按名称获取 ReportObject,将其转换为 TextObject,并返回此对象。 GetTextObject = orpt.ReportDefinition.ReportObjects.Item("text13") GetTextObject.Text = "XXXX系统"
Dim dsdataSet As New DataSet()
Dim oRpt As New rptClient() '已建立的报表rptClient
请读者自行填充数据集dsdataSet
'使用“报表引擎”对象模型将填充的数据集,传递给报表
oRpt.SetDataSource(dsdataSet.Tables(0))
' 将带有数据的报表对象绑定到 Windows 窗体查看器,rptVew(CrystalReportViewer控件)
rptVew.ReportSource = oRpt
代码如下:
Dim GetTextObject As TextObject
' 按名称获取 ReportObject,将其转换为 TextObject,并返回此对象。
GetTextObject = orpt.ReportDefinition.ReportObjects.Item("text13")
GetTextObject.Text = "XXXX系统"