*====水晶报表登录失败，帮忙！====*

[guoyan19811021]

水晶报表登录失败
代码为：
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
Dim logOnInfo As TableLogOnInfo = New TableLogOnInfo()
Dim table As DataTable



Dim Dst As DstCqwwcrw = New DstCqwwcrw()

Dim OleDbConnection1 As OleDb.OleDbConnection = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\SmartOffice.mdb")
Dim OleDbDataAdapter1 As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter("select * from TellTask", OleDbConnection1)



OleDbDataAdapter1.Fill(Dst, "telltask")

Dim RptCqwwcrw As New RptCqwwcrw()
Dim i As Integer = 0

For i=0 to RptCqwwcrw.Database.Tables.Count-1

logOnInfo.ConnectionInfo.ServerName = ""
logOnInfo.ConnectionInfo.DatabaseName = ""
logOnInfo.TableName = ""
logOnInfo.ConnectionInfo.UserID = ""
logOnInfo.ConnectionInfo.Password = ""

Next
RptCqwwcrw.Database.Tables(0).ApplyLogOnInfo(logOnInfo)

RptCqwwcrw.SetDataSource(Dst.Tables(0))

Dim orp As ReportDocument = New ReportDocument()
'orp.Database.Tables(0).ApplyLogOnInfo(logOnInfo)
'orp.Load("C:\Inetpub\wwwroot\oa\ReportSource\RptCqwwcrw.rpt")

CrystalReportViewer1.ReportSource = RptCqwwcrw
CrystalReportViewer1.LogOnInfo.Add(logOnInfo)
CrystalReportViewer1.RefreshReport()
CrystalReportViewer1.DataBind()
DataGrid1.DataSource = Dst
DataGrid1.DataBind()
End Sub

[暗石绿]

http://expert.csdn.net/Expert/topic/1896/1896874.xml?temp=.5687372

[zhangbat]

在使用的过程中，我感觉制作水晶报表rpt文件的时候使用的字段，要和后来填充水晶报表对象的数据源中的字段的名称、顺序一致才行的。

[gzy163991]

http://expert.csdn.net/Expert/topic/2175/2175887.xml?temp=.8389856