每一次报表打开之前前设置一下,但是那个登陆提示框还是出现,为什么?(请看源码)
每一次报表打开之前前设置一下,但是那个登陆提示框还是出现,为什么?
#Region "设置报表数据库设置"
Public Sub SetReportInfo(ByRef MyReport As CrystalDecisions.CrystalReports.Engine.ReportDocument)
Dim tbCurrent As CrystalDecisions.CrystalReports.Engine.Table
Dim tliCurrent As CrystalDecisions.Shared.TableLogOnInfo
For Each tbCurrent In MyReport.Database.Tables
tliCurrent = tbCurrent.LogOnInfo
With tliCurrent.ConnectionInfo
.ServerName = pub.ServerName
.UserID = pub.LoginName
.Password = pub.LoginPass
.DatabaseName = pub.databaseName
End With
tbCurrent.ApplyLogOnInfo(tliCurrent)
Next tbCurrent
End Sub
#End Region