跪求达人看看我的水晶报表怎么无法显示

[aliuying]

代码如下:就是无法显示表中的数据,好象没有从数据库中读出数据
Dim port As ReportDocument = New myCry

Dim dt As New DataSet_Cry.tb_tempDataTable

Dim Conn As String = "Provider=Microsoft.Jet.OleDb.4.0;Data Source=db.mdb"
Dim Myconn As OleDb.OleDbConnection = New OleDb.OleDbConnection()
Myconn.ConnectionString = Conn
Dim MySelectStr As String = "select * from tb_temp"
Dim Mydataset As New DataSet_Cry()

Myconn.Open()
Dim myCommand As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(MySelectStr, Myconn)
myCommand.Fill(Mydataset, "dt")


'dt.Load(Myconn.ExecuteReader())
port.SetDataSource(Mydataset)
myCryView.ReportSource = port
Myconn.Close()

[古今多少事]

这样是不是你想要的：

Dim MyConnection As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\db.mdb")
Dim MyCommand As OleDbCommand
Dim MyDataAdapter As OleDbDataAdapter
Dim MyDataSet As New DataSet()
Dim oRpt As New CrystalReport1() '已建立的报表

MyConnection.Open()
MyCommand = New OleDbCommand("select * from tb_temp", MyConnection)
MyDataAdapter = New OleDbDataAdapter(MyCommand)
MyDataAdapter.Fill(MyDataSet, "tb_temp")

oRpt.SetDataSource(MyDataSet.Tables("tb_temp")))
CrystalReportViewer1.ReportSource = oRpt

[古今多少事]

不好意思，倒数第二句应为：
oRpt.SetDataSource(MyDataSet.Tables("tb_temp"))