高分求救:crystal Report简单问题,SOS,SOS,在线等
我的代码:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'InitializeComponent()
Dim Path As String = Application.StartupPath & "\MSD.mdb" '数据库路径
Dim Olecmd As OleDbDataAdapter
Dim sSQL As String
Dim Searchds As DataSet
Searchds = New DataSet
sSQL = "select * from TempOutIn"
Olecmd = New OleDbDataAdapter(sSQL, "Provider=Microsoft.jet.OLEDB.4.0;Data Source = " & Path)
Olecmd.Fill(Searchds, "TempOutIn")
Dim oRpt As New CrystalReportSix
oRpt.SetDataSource(Searchds.Tables("TempOutIn"))
CrystalReportViewerSix.ReportSource = oRpt
End Sub
总显示空白