您好! 您需要重新实例化报告对象。
这里是一个正确的代码示例:
- Public Class Form1
- Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
- Ar1 = New AR001
- Ar1.DataSource = Data
- Ar1.Run(False)
- _Rpt_0.LoadDocument(Ar1.Document)
- ' _Rpt_0.Refresh()
- End Sub
- Private data As Object
- Private Ar1 As AR001
- Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- Dim dt As New DataTable
- dt.Columns.Add("WK_LNO")
- dt.Columns.Add("WK_KEI_NAME")
- For inci As Integer = 0 To 100
- dt.Rows.Add()
- dt.Rows(dt.Rows.Count - 1).Item("WK_LNO") = dt.Rows.Count
- dt.Rows(dt.Rows.Count - 1).Item("WK_KEI_NAME") = "一二三四五 "
- dt.Rows.Add()
- dt.Rows(dt.Rows.Count - 1).Item("WK_LNO") = dt.Rows.Count
- dt.Rows(dt.Rows.Count - 1).Item("WK_KEI_NAME") = "一二三四五六 "
- dt.Rows.Add()
- dt.Rows(dt.Rows.Count - 1).Item("WK_LNO") = dt.Rows.Count
- dt.Rows(dt.Rows.Count - 1).Item("WK_KEI_NAME") = "一二三四五六七 "
- dt.Rows.Add()
- dt.Rows(dt.Rows.Count - 1).Item("WK_LNO") = dt.Rows.Count
- dt.Rows(dt.Rows.Count - 1).Item("WK_KEI_NAME") = "一二三四五六七八七七七七 "
- dt.Rows.Add()
- dt.Rows(dt.Rows.Count - 1).Item("WK_LNO") = dt.Rows.Count
- dt.Rows(dt.Rows.Count - 1).Item("WK_KEI_NAME") = "一二三四五六七八九八八八八"
- dt.Rows.Add()
- dt.Rows(dt.Rows.Count - 1).Item("WK_LNO") = dt.Rows.Count
- dt.Rows(dt.Rows.Count - 1).Item("WK_KEI_NAME") = "一二三四五六七八九十九九九九九九九九九"
- dt.Rows.Add()
- dt.Rows(dt.Rows.Count - 1).Item("WK_LNO") = dt.Rows.Count
- dt.Rows(dt.Rows.Count - 1).Item("WK_KEI_NAME") = "一二三四五六七八九十十十十十十十十十十十一二三四五六七八九十一二三四五六七八九十"
- Next
- data = dt
- End Sub
- End Class
复制代码
|