ActiveReport_FetchData一览数据永远只有最后一行

Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports fbr00500.frmfbr00500

Public Class ACRFBR00500
    Inherits GrapeCity.ActiveReports.SectionReport

    Private Sub ActiveReport_DataInitialize()

        Fields.Add("arMsi_Seq")
        Fields.Add("arMsi_Hnbn")
        Fields.Add("arMsi_Hnmi")
        Fields.Add("arMsi_HnmiKn")
        Fields.Add("arMsi_KkkSnp")
        Fields.Add("arMsi_BhnKbn")
        Fields.Add("arMsi_KsiKbn")
        Fields.Add("arMsi_AtkaiKbn")
        Fields.Add("arMsi_TshoNo")
        Fields.Add("arMsi_ChkKbn")
        Fields.Add("arMsi_KohoKbn")
        Fields.Add("arMsi_SkiYsn")
        Fields.Add("arMsi_MaeHnbn")
        Fields.Add("arMsi_GTnk")
        Fields.Add("arMsi_HnbKgn")
        Fields.Add("arMsi_ZkBrKbn")

        flngLpCnt = 0
        flngPageCnt = 0

        Exit Sub
    End Sub



    Private Sub ActiveReport_FetchData(EOF As Boolean, ByRef paraHash As Hashtable)

        If flngLpCnt < flngLpEnd Then
            flngLpCnt = flngLpCnt + 1
            EOF = False
        Else
            EOF = True
            Exit Sub
        End If


        Dim intRow As Integer
        For intRow = 0 To CInt(flngLpEnd - 1)


            With paraHash.Item("spsList")

                '.Row = flngLpCnt

                'Fields("arMsi_Seq").Value = CStr(flngLpCnt)

                '.Col = SP_COL_HNBN
                'Fields("arMsi_Hnbn").Value = .Text

                '.Col = SP_COL_HNMI
                'Fields("arMsi_Hnmi").Value = .Text

                '.Col = SP_COL_HNMI_KN
                'Fields("arMsi_HnmiKn").Value = .Text

                '.Col = SP_COL_KKK_SNP_KN
                'Fields("arMsi_KkkSnp").Value = .Text

                '.Col = SP_COL_BHN_KBN
                'Fields("arMsi_BhnKbn").Value = .Text

                '.Col = SP_COL_KOSEI_KBN
                'Fields("arMsi_KsiKbn").Value = .Text
        
                '.Col = SP_COL_ATKAI_KBN
                'Fields("arMsi_AtkaiKbn").Value = .Text
            
                '.Col = SP_COL_NNY_TSY_NO
                'Fields("arMsi_TshoNo").Value = .Text
              
                '.Col = SP_COL_CHIK_KBN
                'Fields("arMsi_ChkKbn").Value = .Text
              
                '.Col = SP_COL_KOHO_KBN
                'Fields("arMsi_KohoKbn").Value = .Text
               
                '.Col = SP_COL_SKKI_YSN
                'Fields("arMsi_SkiYsn").Value = .Text
               
                '.Col = SP_COL_METIO_HNBN1
                'Fields("arMsi_MaeHnbn").Value = .Text
               
                '.Col = SP_COL_G_TNK
                'Fields("arMsi_GTnk").Value = .Text
               
                '.Col = SP_COL_HNB_KGN_F
                'Fields("arMsi_HnbKgn").Value = .Text

                '.Col = SP_COL_ZKBR_KBN
                'Fields("arMsi_ZkBrKbn").Value = .Text

           
                Fields.Item("arMsi_Seq").Value = CStr(intRow + 1)
               
                Fields("arMsi_Hnbn").Value = .ActiveSheet.Cells(intRow, SP_COL_HNBN).Text
               
                Fields("arMsi_Hnmi").Value = .ActiveSheet.Cells(intRow, SP_COL_HNMI).Text
               
                Fields("arMsi_HnmiKn").Value = .ActiveSheet.Cells(intRow, SP_COL_HNMI_KN).Text
               
                Fields("arMsi_KkkSnp").Value = .ActiveSheet.Cells(intRow, SP_COL_KKK_SNP_KN).Text
               
                Fields("arMsi_BhnKbn").Value = .ActiveSheet.Cells(intRow, SP_COL_BHN_KBN).Text
               
                Fields("arMsi_KsiKbn").Value = .ActiveSheet.Cells(intRow, SP_COL_KOSEI_KBN).Text
               
                Fields("arMsi_AtkaiKbn").Value = .ActiveSheet.Cells(intRow, SP_COL_ATKAI_KBN).Text
              
                Fields("arMsi_TshoNo").Value = .ActiveSheet.Cells(intRow, SP_COL_NNY_TSY_NO).Text
               
                Fields("arMsi_ChkKbn").Value = .ActiveSheet.Cells(intRow, SP_COL_CHIK_KBN).Text
               
                Fields("arMsi_KohoKbn").Value = .ActiveSheet.Cells(intRow, SP_COL_KOHO_KBN).Text
            
                Fields("arMsi_SkiYsn").Value = .ActiveSheet.Cells(intRow, SP_COL_SKKI_YSN).Text
               
                Fields("arMsi_MaeHnbn").Value = .ActiveSheet.Cells(intRow, SP_COL_METIO_HNBN1).Text
               
                Fields("arMsi_GTnk").Value = .ActiveSheet.Cells(intRow, SP_COL_G_TNK).Text
               
                Fields("arMsi_HnbKgn").Value = .ActiveSheet.Cells(intRow, SP_COL_HNB_KGN_F).Text

               
                Fields("arMsi_ZkBrKbn").Value = .ActiveSheet.Cells(intRow, SP_COL_ZKBR_KBN).Text
      
            End With
        Next
        Exit Sub
    End Sub



    Private Sub ActiveReport_ReportStart(ByRef paraHash As Hashtable)


        flngLpEnd = CLng(paraHash.Item("spsList").ActiveSheet.NonEmptyRowCount)




        arDate_RH.Text = paraHash.Item("lblDate")

        arKianNo_RH.Text = paraHash.Item("imtKian_no")

        arKianMei_RH.Text = paraHash.Item("imtKnmi_kj")

        arBmnCd_RH.Text = paraHash.Item("imtBmn_code")

        arBmnMei_RH.Text = paraHash.Item("imtBmn_mei")

        arTanto_RH.Text = paraHash.Item("imtSyain_mei_kj")

        arGKygiBi_RH.Text = paraHash.Item("txtGKygiBi")

        arHnkKbn_RH.Text = paraHash.Item("txtHnkKbn")

        arHnbnSu_Ssn_RH.Text = Format(flngSsnCnt, "##,###")

        arHnbnSu_Szi_RH.Text = Format(CLng(paraHash.Item("lblCntHnbn")) - flngSsnCnt, "##,###")

        arHnbnSu_Kei_RH.Text = paraHash.Item("lblCntHnbn")




        arHnbKgn1_RH.Text = paraHash.Item("txtHnbKgn0")
        arHnbKgn2_RH.Text = paraHash.Item("txtHnbKgn1")
        arHnbKgn3_RH.Text = paraHash.Item("txtHnbKgn2")

        arNhnKgn1_RH.Text = paraHash.Item("txtNhnKgn0")
        arNhnKgn2_RH.Text = paraHash.Item("txtNhnKgn1")
        arNhnKgn3_RH.Text = paraHash.Item("txtNhnKgn2")


        Exit Sub
    End Sub




    Private Sub PageHeader_Format(ByRef paraHash As Hashtable)


   
        arDate.Text = paraHash.Item("lblDate")
   
        arKianNo.Text = paraHash.Item("imtKian_no")

        arKianMei.Text = paraHash.Item("imtKnmi_kj")

        arBmnCd.Text = paraHash.Item("imtBmn_code")

        arBmnMei.Text = paraHash.Item("imtBmn_mei")

        arTanto.Text = paraHash.Item("imtSyain_mei_kj")

        arPage.Text = CStr(flngPageCnt) & " ／ " & CStr(paraHash.Item("lblCnt_page"))


        flngPageCnt = flngPageCnt + 1

        Exit Sub
    End Sub

    Public Overloads Sub run(ByRef paraHash As Hashtable)


        ActiveReport_DataInitialize()
        ActiveReport_ReportStart(paraHash)
        ActiveReport_FetchData(True, paraHash)

        PageHeader_Format(paraHash)
        run()

        Exit Sub
    End Sub

End Class

谢谢反馈，我将关闭该帖子。

谢谢dof

谢谢，这个问题已经解决

回复 13楼xuwei_qiaofeng的帖子

// 缩放20%
viewer1.Zoom = 0.2f;

// 缩放200%
viewer1.Zoom = 2f;

上个问题在于不能重载自定义加参数，加了后虽然能够执行，但是不能制动转换到下一行。就是说。ergevent.EOF不起作用了。
把数据放到一个共通数据类，不通过参数传过来。在打印时候直接从共通数据类取就可以了。

非常感谢，这个问题已经解决。
现在发现一个新的问题。
arViewer.Zoom = 75
我们想通过设置zoom来显示报表的初始大小，但是好像不起作用。
要么初始化为800% ，要么为10%。无论设置什么值，都初始化为这两种大小。
请问到底怎么设置，arViewer.Zoom的类型是single

xuwei_qiaofeng 你好

我的理解你应该是在实现一个非绑定的报表，我建议你先参考以下AR 7 自带的产品示例，默认安装路径为  C:\Users\用户名\Documents\ComponentOne Samples\ActiveReports Developer 7\Section Reports\C#\Data\UnboundData
该示例演示了如何在AR中使用非绑定数据源。

xuwei_qiaofeng 你好

抱歉，我们现在不能使用qq、微信等通信工具，你可以将你的工程做成压缩包，然后，通过【高级编辑器】选择【附件】上传给我们。

如果可以加我qq或者微信聊。我qq76487013，thankyou