http://expert.csdn.net/Expert/topic/1140/1140813.xml?temp=.9271814->关于水晶报表登录失败的问题

Question

2.使用TableLogonInfo
Dim ReportDoc As New ReportDocument()
Dim logonInfo As New TableLogonInfo
Dim table As table
ReportDoc.Load("C:\Rpts\publish.rpt")
For Each table IN ReportDoc.DataBase.Tables
        logonInfo= table.LogonInfo
        with logonInfo.connectioninfo
          .serverName= "Localhost"
          .Databasename= "pubs"
          .UserID= "sa"
          .Password=""
        End With
        table.applyLogonInfo(logonInfo)
next table
Crviewer.reportsource= reportDoc