Results 1 to 2 of 2

Thread: [RESOLVED] [VB.net/CR] RecordSelection Error

Threaded View

  1. #1

    Thread Starter
    New Member
    Join Date
    Jan 2008
    Posts
    11

    Resolved [RESOLVED] [VB.net/CR] RecordSelection Error

    hello guys! mabuhay!

    Can I ask you guys what seems to be the problem on the RecordSelection below?
    I get an error message when I try to execute my CR.

    the problem seems to be on this part :
    {OK_ZAIHEN_WK.I_FILE_NAME} in ( '344 dd ZAIHENFILE.txt', 'dd ZAIHENFILE.txt', 'ZAIHENFILE.txt' )
    does this line recognized/interpreted by CR?

    I may have overlooked something, I hope someone can help me.
    Thanks!

    ---------------------------
    Crystal Report Windows Form viewer
    ---------------------------
    ) がありません。 ===> no ")"
    詳細(Details): errorKind
    ファイル C:\DOCUME~1\irvin\LOCALS~1\Temp\OKKC301 {925B2AB8-E874-4A6F-B8E4-A1E1CEA5C4C8}.rpt のエラー (ERROR):
    式 <Record Selection>.
    '{OK_ZAIHEN_WK.I_TERM_NO} = 5 and {OK_ZAIHEN_WK.I_WS_FAC_CD} = 'FAC01' and {OK_ZAIHEN_WK.I_FILE_NAME} in ( '344 dd ZAIHENFILE.txt', 'dd ZAIHENFILE.txt', 'ZAIHENFILE.txt' ) and trim({OK_ZAIHEN_WK.I_MSG}) <> ' ''
    ) がありません。 ===> no ")"
    詳細(Details): errorKind

    code snippet :
    Code:
    Dim count As Integer = arrErrFile.Count
            Dim strFiles As String
    
            If count >= 1 Then
                strFiles = "'" & arrErrFile(0).ToString & "'"
                Dim i As Integer
                If count > 1 Then
                    For i = 1 To count - 1
                        strFiles = strFiles & ", '" & arrErrFile(i).ToString & "'"
                    Next
                End If
            End If
    
            Report.Load("OKKC301.RPT", CrystalDecisions.[Shared].OpenReportMethod.OpenReportByDefault)
    
            FmlaText = "{OK_ZAIHEN_WK.I_TERM_NO} = " & Sav_WSNO
            FmlaText = FmlaText & " and {OK_ZAIHEN_WK.I_WS_FAC_CD} = '" & P_FactoryCode & "'"
            FmlaText = FmlaText & " and {OK_ZAIHEN_WK.I_FILE_NAME} in ( " & strFiles & " )"
            FmlaText = FmlaText & " and trim({OK_ZAIHEN_WK.I_MSG}) <> ' '"
            Report.RecordSelectionFormula = FmlaText
    Last edited by boreder; Feb 22nd, 2008 at 01:18 AM.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width