这是为什么导致类型不匹配？

Question

我有一个调用Crystal Report XI报表的VB6应用程序。但是，当我尝试更改连接信息时，出现类型不匹配。任何帮助，将不胜感激。

Dim Report As craxddrt.Report ' This is how Report is defined 

ChangeReportTblLocation Report ' This is the function where the mismatch occurs 

这是ChangeReportTblLocation定义：

Private Function ChangeReportTblLocation(ByRef pReport As craxddrt.Report) As Boolean 

    Dim ConnectionInfo As craxddrt.ConnectionProperties 
    Dim crxTables  As craxddrt.DatabaseTables 
    Dim crxTable  As craxddrt.DatabaseTable 
    Dim crxSections  As craxddrt.Sections 
    Dim crxSection  As craxddrt.section 
    Dim crxSubreportObj As craxddrt.SubreportObject 
    Dim crxReportObjects As craxddrt.ReportObjects 
    Dim crxSubreport As craxddrt.Report 
    Dim ReportObject As Object 
    Dim Y    As Integer 
    Dim lsDatabase  As String 

    On Error GoTo errHandle_CRTL 


    lsDatabase = GetCurrentUserRoot("SOFTWARE\COTTSYSTEMS\APP", "Database") 

    If lsDatabase = "" Then 
     lsDatabase = gConn.DefaultDatabase 
    End If 

    If lsDatabase = "" Then 
     lsDatabase = "frasys" 
    End If 

    With pReport 

     For Y = 1 To .Database.Tables.Count 
      Set ConnectionInfo = .Database.Tables(Y).ConnectionProperties 

      ConnectionInfo.DeleteAll 
      ConnectionInfo.Add "DSN", frasysdsn 
      ConnectionInfo.Add "Database", lsDatabase 

      'This is the Line that causes the type mismatch 
      .Database.Tables(Y).Location = lsDatabase & ".dbo." & Database.Tables(Y).Location 

     Next Y 

     Set crxSections = .Sections 

     For Each crxSection In crxSections 

      Set crxReportObjects = crxSection.ReportObjects 

      For Each ReportObject In crxReportObjects 

       If ReportObject.Kind = crSubreportObject Then 
        Set crxSubreportObj = ReportObject 
        Set crxSubreport = crxSubreportObj.OpenSubreport 
        Set crxTables = crxSubreport.Database.Tables 

        For Y = 1 To crxTables.Count 
         Set crxTable = crxTables.Item(Y) 
         crxTable.Location = lsDatabase & ".dbo." & crxTable.Location 

        Next Y 

       End If 
      Next ReportObject 
     Next crxSection 

    End With 

    Set ConnectionInfo = Nothing 
    Set crxTables = Nothing 
    Set crxTable = Nothing 
    Set crxSections = Nothing 
    Set crxSection = Nothing 
    Set crxSubreportObj = Nothing 
    Set crxReportObjects = Nothing 
    Set crxSubreport = Nothing 
    Set ReportObject = Nothing 

    ChangeReportTblLocation = True 

    Exit Function 
errHandle_CRTL: 
    Screen.MousePointer = vbDefault 
    MsgBox err.Number, err.Description, "ChangeReportTblLocation", err.Source 
End Function 

Answer 1

我认为它只是一个错字：

.Database.Tables(Y).Location = lsDatabase & ".dbo." & .Database.Tables(Y).Location 

我添加了一个.前第二个Database.Tables(Y).Location在这个l中国家统计局。

虽然您没有在代码中使用Option Explicit，但确实如此。我不能强调足够强调使用它的重要性。它会为您节省大量时间寻找奇怪的拼写错误（像这样），并将您的代码从各种奇怪的事情中拯救出来。

Answer 2

尝试使用 call ChangeReportTblLocation(Report)