找回密码
 立即注册

QQ登录

只需一步,快速开始

xuwei_qiaofeng

银牌会员

8

主题

28

帖子

3246

积分

银牌会员

积分
3246

活字格认证

xuwei_qiaofeng
银牌会员   /  发表于:2013-4-24 20:11  /   查看:12535  /  回复:17
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

17 个回复

倒序浏览
xuwei_qiaofeng
银牌会员   /  发表于:2013-4-24 20:13:00
沙发
报表能搞正常出来,但ActiveReport_FetchData循环到最后,前面数据都被覆盖了,只有最后一条数据。请问问题出在什么地方,急
回复 使用道具 举报
xuwei_qiaofeng
银牌会员   /  发表于:2013-4-24 20:14:00
板凳
请dof大拿帮忙啊。。。。。感激。。
回复 使用道具 举报
xuwei_qiaofeng
银牌会员   /  发表于:2013-4-25 10:14:00
地板
因为数据通过hashmap传过来,所以我重载了run方法。
回复 使用道具 举报
ZenosZeng讲师达人认证 悬赏达人认证
超级版主   /  发表于:2013-4-25 11:06:00
5#
xuwei_qiaofeng 你好

谢谢你提供的代码,我这边试着调试了一下,可能是程序结构不完整的原因,还没有重现你的问题,你能否发一个可以重现该问题的完整例子给我们进行调试。
回复 使用道具 举报
xuwei_qiaofeng
银牌会员   /  发表于:2013-4-25 14:06:00
6#
View Class代码如下
Option Strict Off
Option Explicit On

Imports GrapeCity.ActiveReports.Export.Pdf.Section

Friend Class prvfbr00500
    Inherits System.Windows.Forms.Form
    ''''''''''''todo
    Private WithEvents PrintDocument As System.Drawing.Printing.PrintDocument
    '*******************************************************
    '* プロシジャー名  : mfEnd_Click
    '* 機能概要     : プレビュー?ツールバー処理
    '*          : プレビュー終了処理
    '* 入力引数     : なし
    '* 作成者      : NSD岡田
    '* 作成日      : 2006/06/02
    '* 変更履歴     :
    '*******************************************************
    Public Sub mfEnd_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mfEnd.Click

        '???????を閉じる
        Me.Close()

        Exit Sub
    End Sub


    '*******************************************************
    '* プロシジャー名  : mfPDFExp_Click
    '* 機能概要     : プレビュー?ツールバー処理
    '*          : PDF出力処理
    '* 入力引数     : なし
    '* 作成者      : NSD岡田
    '* 作成日      : 2006/06/02
    '* 変更履歴     :
    '*******************************************************
    Public Sub mfPDFExp_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mfPDFExp.Click
        Dim pdf As Object
        ''''todo'''''''''''''
        '   Dim pdfObj As New ActiveReportsPDFExport2.ARExportPDF
        Dim pdfObj As New PdfExport

        ' 2013/04/23 マイグレーション対応 【移行手順書-VB to VB.Net-15】↓↓
        'Dim strOutDir As String
        'Dim strOutFile As String
        'Dim strOutPass As String
        Dim strOutDir As String = String.Empty
        Dim strOutFile As String = String.Empty
        Dim strOutPass As String = String.Empty
        ' 2013/04/23 マイグレーション対応 【移行手順書-VB to VB.Net-15】↑↑
        Dim bolRtn As Boolean

        'INI????未更新に対応
        ' 2013/04/23 マイグレーション対応 【移行手順書-VB to VB.Net-30】
        'If fstrOutPdf = "" Then
        If Len(fstrOutPdf) = 0 Then

            fstrOutPdf = My.Application.Info.DirectoryPath & "\csv\out\部品設定連絡表.pdf"
        End If

        ' 2013/04/10 マイグレーション対応 【移行手順書-VB to VB.Net-33】
        '出力PDF???をCommonDialogから取得
        'UPGRADE_WARNING: CommonDialog 変数はアップグレードされませんでした 詳細については、'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="671167DC-EA81-475D-B690-7A40C7BF4A23"' をクリックしてください。
        'With cdlPdfOut
        With cdlPdfOutSave

            '各???????への格納
            Call gp_CsvOutSet(fstrOutPdf, strOutDir, strOutFile)
            .InitialDirectory = strOutDir
            .FileName = strOutFile

            '???名検索
            '指定?????が存在しなくても???????は表示可能なので????とする
            '### If Dir(.InitDir, vbDirectory) = "" Then    'ini????の指定?????がない場合
            '###     MsgBox "指定?????が正しくありません"
            '###     Exit Sub
            '### End If

            .Title = CDLOUTTITLE '"出力????を選択してください"
            'UPGRADE_WARNING: FileOpenConstants 定数 FileOpenConstants.cdlOFNHideReadOnly は、新しい動作をもつ OpenFileDialog.ShowReadOnly にアップグレードされました。 詳細については、'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="DFCDE711-9694-47D7-9C50-45A99CD8E91E"' をクリックしてください。
            'UPGRADE_WARNING: MSComDlg.CommonDialog プロパティ cdlPdfOut.Flags は、新しい動作をもつ cdlPdfOutSave.OverwritePrompt にアップグレードされました。 詳細については、'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="DFCDE711-9694-47D7-9C50-45A99CD8E91E"' をクリックしてください。
            .OverwritePrompt = True

            'UPGRADE_WARNING: MSComDlg.CommonDialog プロパティ cdlPdfOut.Flags は、新しい動作をもつ cdlPdfOutOpen.ShowReadOnly にアップグレードされました。 詳細については、'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="DFCDE711-9694-47D7-9C50-45A99CD8E91E"' をクリックしてください。
            'UPGRADE_WARNING: FileOpenConstants 定数 FileOpenConstants.cdlOFNHideReadOnly は、新しい動作をもつ OpenFileDialog.ShowReadOnly にアップグレードされました。 詳細については、'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="DFCDE711-9694-47D7-9C50-45A99CD8E91E"' をクリックしてください。

            ' 2013/04/10 マイグレーション対応 【移行手順書-VB to VB.Net-33】
            '.ShowReadOnly = False

            'UPGRADE_WARNING: MSComDlg.CommonDialog プロパティ cdlPdfOut.Flags は、新しい動作をもつ cdlPdfOutSave.CreatePrompt にアップグレードされました。 詳細については、'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="DFCDE711-9694-47D7-9C50-45A99CD8E91E"' をクリックしてください。
            'UPGRADE_WARNING: MSComDlg.CommonDialog プロパティ cdlPdfOut.Flags は、新しい動作をもつ cdlPdfOutOpen.CheckFileExists にアップグレードされました。 詳細については、'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="DFCDE711-9694-47D7-9C50-45A99CD8E91E"' をクリックしてください。
            .CreatePrompt = True
            .CheckFileExists = False
            .CheckPathExists = False
            .CheckPathExists = False
            'UPGRADE_WARNING: Filter に新しい動作が指定されています。 詳細については、'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="9B7D5ADD-D8FE-4819-A36C-6DEDAF088CC7"' をクリックしてください。
            .Filter = CDLALLONRY '全て|*.*"
            .FilterIndex = 1

            ' 2013/04/10 マイグレーション対応 【移行手順書-VB to VB.Net-18】
            ''UPGRADE_WARNING: The CommonDialog CancelError プロパティは Visual Basic .NET でサポートされていません。 詳細については、'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="8B377936-3DF7-4745-AA26-DD00FA5B9BE1"' をクリックしてください。
            '.CancelError = True '?????時はExit_sub
            'On Error GoTo EXIT_SUB
            ''??????????を開く
            '.ShowDialog()
            On Error GoTo EXIT_SUB
            'コモンダイアログを開く
            Dim dlgResult As DialogResult
            dlgResult = .ShowDialog()
            If dlgResult = DialogResult.Cancel Then
                GoTo EXIT_SUB
            End If


            If .FileName = "" Then
                GoTo EXIT_SUB
            End If

            strOutPass = .FileName

        End With

        '''''''todo
        'PDF????出力
        ' pdfObj.FileName = strOutPass

        ''''todo
        'If arViewer2.Pages.Count > 0 Then
        '    pdfObj.Export(arViewer2.Pages)
        'ElseIf Not arViewer2.ReportSource Is Nothing Then
        '    'UPGRADE_WARNING: オブジェクト ARViewer2.ReportSource.Pages の既定プロパティを解決できませんでした。 詳細については、'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"' をクリックしてください。
        '    If arViewer2.ReportSource.Pages.Count > 0 Then
        '        'UPGRADE_WARNING: オブジェクト ARViewer2.ReportSource.Pages の既定プロパティを解決できませんでした。 詳細については、'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"' をクリックしてください。
        '        pdfObj.Export(arViewer2.ReportSource.Pages)
        '    End If
        'End If

        If arViewer2.Document.Pages.Count > 0 Then

            pdfObj.Export(arViewer2.Document, strOutPass)

        End If


        'UPGRADE_NOTE: オブジェクト pdf をガベージ コレクトするまでこのオブジェクトを破棄することはできません。 詳細については、'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6E35BFF6-CD74-4B09-9689-3E1A43DF8969"' をクリックしてください。
        pdf = Nothing

        MsgBox(&quotDF????を出力しました")

EXIT_SUB:

        Exit Sub
    End Sub


    '*******************************************************
    '* プロシジャー名  : mfPrint_Click
    '* 機能概要     : プレビュー?ツールバー処理
    '*          : 印刷処理
    '* 入力引数     : なし
    '* 作成者      : NSD岡田
    '* 作成日      : 2006/06/02
    '* 変更履歴     :
    '*******************************************************
    Public Sub mfPrint_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mfPrint.Click
        ''''''todo'''''''''
        ''ActiveReport?????の表示???を印刷
        'If Not arViewer2.ReportSource Is Nothing Then
        '    'UPGRADE_WARNING: オブジェクト ARViewer2.ReportSource.PrintReport の既定プロパティを解決できませんでした。 詳細については、'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"' をクリックしてください。
        '    arViewer2.ReportSource.PrintReport(True) '?????設定???????表示あり
        'End If
        'ActiveReport?????の表示???を印刷
        Me.PrintDocument = New System.Drawing.Printing.PrintDocument()
        If Not arViewer2.Document Is Nothing Then
            'UPGRADE_WARNING: オブジェクト ARViewer2.ReportSource.PrintReport の既定プロパティを解決できませんでした。 詳細については、'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"' をクリックしてください。
            Me.PrintDocument.Print()
            '?????設定???????表示あり
        End If

        Exit Sub
    End Sub


    '*******************************************************
    '* プロシジャー名  : p_RunReport
    '* 機能概要     : ARViewer2オブジェクト設定処理
    '* 入力引数     : なし
    '* 作成者      : NSD岡田
    '* 作成日      : 2006/06/02
    '* 変更履歴     :
    '*******************************************************
    ' Public Sub p_RunReport(ByRef rptObj As Object)
    Public Sub p_RunReport(ByRef rptObj As GrapeCity.ActiveReports.SectionReport)
        ''''''todo'''''''
        'ActiveReport?????に印刷????????を設定
        ' arViewer2.ReportSource = rptObj
        arViewer2.Document = rptObj.document

        ''''''''''todo
        ' arViewer2.Zoom = 75 '縮小率
        Exit Sub
    End Sub

    Private Sub prvfbr00500_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class
回复 使用道具 举报
xuwei_qiaofeng
银牌会员   /  发表于:2013-4-25 14:07:00
7#
窗体报表显示按钮的事件如下:

    '2006/06/01 start SVFからActiveReportsへの変更対応
    '*************************************************
    '* プロシジャー名  : cmdPrint_Click
    '* 機能概要     : 設定連絡表????????処理
    '* 入力引数     : なし
    '* 出力引数     : なし
    '* 作成者      : NSD岡田
    '* 作成日      : 2006/06/02
    '* 更新履歴     : 2006/06/01 start SVFからActiveReportsへの変更対応
    '*************************************************
    Private Sub cmdPrint_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdPrint.Click
        '''''todo
        'Dim rptObj As Object
        Dim rptObj As New ACRFBR00500
        '''''''todo
        ' Dim acRep As New DDActiveReports2.ActiveReport
        Dim acRep As New GrapeCity.ActiveReports.SectionReport

        Dim preView As New prvfbr00500
        ' 2013/04/23 マイグレーション対応 【移行手順書-VB to VB.Net-15】
        ' Dim strSql As String

        Dim lngRowCnt As Integer
        Dim lngRowEnd As Integer

        Call gp_TraceAdd("cmdPrint_Click") '????追加

        ' 業務依頼NO:A91414 2010/03/25 NSD.Hirao Insert Start --->
        If Me.lblNhnError.Visible Then
            Call gfint_MsgBox(gobjOraDatabase, "I001", fstrPgmID)
        End If
        ' 業務依頼NO:A91414 2010/03/25 NSD.Hirao Insert End <---

        ' 2013/04/10 マイグレーション対応 【移行手順書-画面表示とロジックの分離-14】
        ''部品区分名称取得(生産品????用)
        'strSql = "select CODE_MEI_KJ" &amp; " from  FZT010 " &amp; " where CODE     = 'B0003'" &amp; " and   SND_CODE = '1'"
        'gobjOraDynaset = gfobj_OraGetDynaset(gobjOraDatabase, strSql, gobjOraflds)
        gobjOraDynaset = fmyModule.cmdPrint_Click_Sel()

        ' 2013/04/10 マイグレーション対応 【移行手順書-画面表示とロジックの分離-5】
        ' 2013/04/10 マイグレーション対応 【移行手順書-画面表示とロジックの分離-6】
        ''UPGRADE_WARNING: オブジェクト gobjOraDynaset.RecordCount の既定プロパティを解決できませんでした。 詳細については、'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"' をクリックしてください。
        'If gobjOraDynaset.RecordCount > 0 Then
        '        fstrSsnMei = gfstr_NullToStr(gobjOraDynaset!CODE_MEI_KJ)
        'Else
        '        fstrSsnMei = "生産品"
        'End If
        'UPGRADE_WARNING: オブジェクト gobjOraDynaset.RecordCount の既定プロパティを解決できませんでした。 詳細については、'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"' をクリックしてください。
        If gobjOraDynaset.Rows.Count > 0 Then
            fstrSsnMei = gfstr_NullToStr(gobjOraDynaset.Rows(0)("CODE_MEI_KJ"))
        Else
            fstrSsnMei = "生産品"
        End If

        '??????????から生産品を????する
        flngSsnCnt = 0
        lngRowEnd = CInt(lblCntHnbn.Text)
        With spsList
            ' 2013/04/17 マイグレーション対応 【移行手順書-Spread-39】
            'For lngRowCnt = 1 To lngRowEnd
            For lngRowCnt = 0 To lngRowEnd - 1
                ' 2013/04/17 マイグレーション対応 【移行手順書-Spread-30】
                '.Row = lngRowCnt
                '.Col = SP_COL_ATKAI_KBN
                'If Trim(.Text) = fstrSsnMei Then
                If Trim(.ActiveSheet.Cells(lngRowCnt, SP_COL_ATKAI_KBN).Text) = fstrSsnMei Then
                    flngSsnCnt = flngSsnCnt + 1
                End If
            Next
        End With

        'ActiveReportで????を印刷する
        rptObj = New ACRFBR00500
        'UPGRADE_WARNING: オブジェクト rptObj.Printer の既定プロパティを解決できませんでした。 詳細については、'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"' をクリックしてください。
        ''todo
        '    rptObj.Printer = acRep.Printer
        ''''TODO↓↓
        Dim paraHash As Hashtable = New Hashtable

        paraHash.Add("lblDate", lblDate.Text)
        paraHash.Add("imtKian_no", imtKian_no.Text)
        paraHash.Add("imtKnmi_kj", imtKnmi_kj.Text)
        paraHash.Add("imtBmn_code", imtBmn_code.Text)
        paraHash.Add("imtBmn_mei", imtBmn_mei.Text)
        paraHash.Add("imtSyain_mei_kj", imtSyain_mei_kj.Text)
        paraHash.Add("txtGKygiBi", txtGKygiBi.Text)
        paraHash.Add("txtHnkKbn", txtHnkKbn.Text)
        paraHash.Add("lblCntHnbn", lblCntHnbn.Text)
        paraHash.Add("txtHnbKgn0", txtHnbKgn(0).Text)
        paraHash.Add("txtHnbKgn1", txtHnbKgn(1).Text)
        paraHash.Add("txtHnbKgn2", txtHnbKgn(2).Text)
        paraHash.Add("txtNhnKgn0", txtNhnKgn(0).Text)
        paraHash.Add("txtNhnKgn1", txtNhnKgn(1).Text)
        paraHash.Add("txtNhnKgn2", txtNhnKgn(2).Text)
        paraHash.Add("lblCnt_page", lblCnt_page.Text)
        paraHash.Add("spsList", spsList)

        ''''TODO ↑↑
        rptObj.Run()
        paraHash.Clear()

        '  preView.p_RunReport(rptObj)
        preView.p_RunReport(rptObj)

        'かがみ(???)+明細(???)の???????表示
        preView.Show()


        Call gp_TraceInit() '???????

    End Sub
回复 使用道具 举报
xuwei_qiaofeng
银牌会员   /  发表于:2013-4-25 14:12:00
8#
我在网上也查到一些解决方法,但是eventArgs .EOF这个东西不知道什么。
是我上面贴的click事件中的第二个参数吗?ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs
回复 使用道具 举报
xuwei_qiaofeng
银牌会员   /  发表于:2013-4-25 14:14:00
9#
网上很多东西都是绑定数据的。我的是查询出来既存的数据
感觉就是对Fields赋值以后,指针不能指向下一条,导致循环的时候都是对同一条记录赋值。
回复 使用道具 举报
xuwei_qiaofeng
银牌会员   /  发表于:2013-4-25 14:17:00
10#
如果可以加我qq或者微信聊。我qq76487013,thankyou
回复 使用道具 举报
12下一页
您需要登录后才可以回帖 登录 | 立即注册
返回顶部