Dim crApp As New CRAXDRT.Application
Dim crRpt As New CRAXDRT.Report
Dim nd As String
nd = Text1.Text
Dim conn1 As ADODB.Connection
Dim rs1 As New ADODB.Recordset
Dim sql1 As String
Set conn1 = CreateObject("adodb.connection")
conn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path + "\開發區中小學財務收支管理.mdb;Persist Security Info=False"
sql1 = "select Distinct * from 開發區中小學財務收支總表 where 學校名稱 ='" & Combo2 & " 'and 年度 ='" & nd & " ' order by ID asc"
rs1.CursorLocation = adUseClient
rs1.Open sql1, conn1, adOpenStatic, adLockReadOnly, adCmdText
Set crRpt = crApp.OpenReport(App.Path + "\財務報表.rpt")
crRpt.DiscardSavedData
crRpt.Database.SetDataSource rs1, 3, 1
crRpt.Database.SetDataSource rs1, 3, 2
crRpt.EnableParameterPrompting = False
crRpt.SQLQueryString = sql1
CRViewer91.ReportSource = crRpt
CRViewer91.DisplayBackgroundEdge = False
CRViewer91.DisplayGroupTree = False
CRViewer91.Refresh
CRViewer91.ViewReport
uj5u.com熱心網友回復：
sql1 = "select Distinct * from 開發區中小學財務收支總表 where 學校名稱 ='" & Combo2 & " 'and 年度 ='" & nd & " ' order by ID asc"開發區中小學財務收支總表
你打看一下這個表的原始資料,應該是視圖吧,可能是關聯寫不對
uj5u.com熱心網友回復：
'呼叫兩次，為什么？'
crRpt.Database.SetDataSource rs1, 3, 1
crRpt.Database.SetDataSource rs1, 3, 2
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/142367.html
下一篇：VB 二進制保存問題，求大神