首页 › 视频教程 › ActiveReport报表批量预览

dongxin5210 发表于 2021-1-26 09:51:46

ActiveReport报表批量预览

ActiveReport可以实现批量预览吗？下面是我的代码，其中TestForm2是报表预览画面。 例如我想打开10个预览画面，但程序执行到 “test.Rpt(rptObj)”时，预览画面打开，但代码也不再继续执行，只有当预览画面关闭时，For循环才继续向下执行。所以请问是否有批量预览的Demo参考一下，或者是我现在的代码存在什么问题。

Public Function Main(ByVal str() As String) As Integer
      AppGlobal.g_ExitCode = 1

      If str.Length > 0 Then
            Dim strg() As String
            strg = Split(str(0), ",")
            Process.Print(Trim(strg(0)), Trim(strg(3)), Trim(strg(1)), Trim(strg(2)), Trim(strg(4)), Trim(strg(5)))
      Else

            Log4NetUtil.LogWriteLine("1")
            AppGlobal.g_ExitCode = 1
      End If

      For i = 0 To 10
            Dim rptObj As New SectionReport
            Dim test As New TestForm2
            test.Rpt(rptObj)
      Next

      Return AppGlobal.g_ExitCode
    End Function

KearneyKang 发表于 2021-1-26 14:58:47

你好，你说的批量预览是，一次预览多张报表在一个viewer里，还是在多个viewer里展示多张报表

dongxin5210 发表于 2021-1-26 17:47:08

是打开多个Viewer，一个Viewer里面只有一张报表。

KearneyKang 发表于 2021-1-26 18:00:11

哪里在前端创建多个Viewer，然后一个viewer后端绑定一个对应的报表就可以了。绑定方式都是一样的

查看完整版本: ActiveReport报表批量预览