這是一段水晶報表的程序，程序如下
Private Sub Form_Load()
Dim Strsql As String
If Cn.State = adStateOpen Then
Else
Cn.CursorLocation = adUseClient
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\lujingData.mdb;Persist Security Info=False"
End If
Rs.CursorLocation = adUseClient
Strsql = "select DMEA,HKLA From " & Trim$(Text5) & ""調用表的數據
Set Rs = Cn.Execute(Strsql)
Screen.MousePointer = vbHourglass
CRViewer91.ReportSource = CrystalReport6
CrystalReport6.Database.SetDataSource Rs
CrystalReport6.ReadRecords
CRViewer91.ViewReport
Screen.MousePointer = vbDefault
End Sub
運行之后提示from子句語法錯誤，但是用
Set Rs = Cn.Execute("select DMEA,HKLA From hy18"又是對的，為什么無法用sql語句呢
|
