找回密码
 立即注册

QQ登录

只需一步，快速开始

首页 › ActiveReports专区 › 求助中心 › 查看内容
发新帖

xuwei_qiaofeng

银牌会员

8

主题

28

帖子

3246

积分

银牌会员

积分
3246

活字格认证

最新发帖

[已处理] ActiveReport_FetchData一览数据永远只有最后一行

xuwei_qiaofeng
银牌会员   /  发表于：2013-4-24 20:11  /   查看：12753  /  回复：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
    '* 機能概要　　　  : プレビュー?ツールバー処理
    '* 　　　　　　　  : ＰＤＦ出力処理
    '* 入力引数　　　  : なし
    '* 作成者　　　　  : 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下一页
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册
产品与服务
活字格低代码平台
Wyn 商业智能软件
SpreadJS纯前端表格控件
技术服务体系
技术博客
低代码技术
客户与案例
典型客户
成功案例
用户访谈
合作与生态
合作伙伴网络
葡萄城市场
葡萄城与国产化
活字格用友客开工具
品牌活动
葡萄城公开课
品牌战略发布会
赋能开发者高峰论坛
企业级低代码发展研讨会
企业级低代码应用大赛
表格技术研讨会
了解葡萄城
葡萄城简介
愿景使命
研发与创新
荣誉奖项
加入我们
联系方式
联系我们
400-657-6008

葡萄城社区二维码

关注“葡萄城社区”

赋能开发者

西安葡萄城软件有限公司
专业的软件开发技术和低代码平台提供商

陕ICP备2020018819号  |   陕公网安备：61019002000258  |   隐私政策  |   网站地图  

邮箱： info.xa@grapecity.com  |  © 2024 葡萄城软件，保留所有权利

Archiver| 手机版| 小黑屋|

返回顶部