ActiveReport的属性的对应

收藏

vb6： Detail.PrintSection()
这个我之前问过，然后说这个属性在Activereports 7中无需对应该方法

但是现在测试发现，这个方法是用来在Detail的Format事件里面做循环用的，
假如有10条数据，如果没有这个方法，就只能出来一条，所以这个方法可能还是需要
有对应的属性或者是其他的方法来替换吧

ZenosZeng · ZenosZeng

在AR7中Detail区域会根据数据源的数量进行循环显示，比如数据源有10行数据，那么程序会执行10次Detail.Format事件，然后你可以在Detail.Format事件中完成你的业务逻辑。

jinqiong · jinqiong

但是我这边的程序没有循环，是需要设置什么其他特别的属性吗？

jinqiong · jinqiong

下面是我程序的Detail的Format事件的代码

Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format

      On Error GoTo ErrorHandler

      If m_lngCnt > UBound(G_FjAddrPrt) Then
         Exit Sub
      End If

      With G_FjAddrPrt(m_lngCnt)
         '----------------------------------------
         ' 明細データセット
         '----------------------------------------
         If m_intDetailCnt = CM_MaxDataCnt + 1 Then          '明細MAX + 1で改ページ
            Fields("DTCNT").Value = Fields("DTCNT").Value + 1
            Detail.NewPage = SectionReportModel.NewPage.Before

            m_intDetailCnt = 0
         Else
            Detail.NewPage = SectionReportModel.NewPage.None

         End If
         '----------------------------------------------------------
         m_intDetailCnt = m_intDetailCnt + 1    '行件数

         '----------------------------------------------------------
         m_lngCnt = m_lngCnt + 1                'レコード件数
      End With

      Exit Sub
ErrorHandler:
      'エラーログ出力
      Call gsPutLog(Err.Number & ":" & Err.Description)

End Sub

ZenosZeng · ZenosZeng

jinqiong

你在AR设计界面，选中Detail区域，然后在属性窗口中的事件页面中指定Detail的Format事件处理方法为Detail_Format看能否循环调用该方法，如果还是不行，请将该测试报表发送给我看看。

		自动登录	找回密码
密码			立即注册

[已处理] ActiveReport的属性的对应

4 个回复

活字格认证

圣诞拼拼乐

微信认证勋章

讲师达人

元老葡萄

悬赏达人