请大虾帮忙!! Dim myConnection As New sqlClient.sqlConnection() myConnection.ConnectionString = "Server=localhost;database=Experts;User ID=sa;Password= " Dim myCommand As New sqlClient.sqlCommand() myCommand.Connection = myConnection myCommand.CommandText = "Select * from Expert " myCommand.CommandType = CommandType.Text Dim myDA As New sqlClient.sqlDataAdapter() myDA.SelectCommand = myCommand Dim myDS As New DataSet1() myDA.Fill(myDS,"p ") MessageBox.Show(myDS.Tables( "p ").Rows.Count) Dim oRpt As New CrystalReport1() oRpt.SetDataSource(myDS.Tables( "p ")) CrystalReportViewer1.ReportSource = oRpt 请问 我在报表中怎么没见到我想要的数据??是不是什么地方错了,对不起 我是新手,请大虾详细讲解啊 __________________________________________________________________________ 该回复于2008-08-05 03:39:54被管理员或版主删除 __________________________________________________________________________ myConnection.ConnectionString = "Server=localhost;database=Experts;User ID=sa;Password= " 这一句后面加入 myConnection.Open() 试试，可以是连接没打开的原因。当然最好在 End Sub 前加上 myConnection.Close() __________________________________________________________________________