我也不会的了
Report1.Formulas(3) = "zhuzhi=" & "'" & zhuzhi & "'"
Report1.Formulas(3) = "jzhrq=" & "'" & jzhrq & "'"
这是想怎样的？
是不是还有Report1.Formulas(5)?
Private Sub Command1_Click()
Dim connstr As String
If conn.State = adStateOpen Then conn.Close
connstr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=消防管理系统;Data Source=LXY-6A77699B855sqlexpress;"
conn.ConnectionString = connstr
conn.Open
conn.CursorLocation = adUseClient
If rs.State = adStateOpen Then rs.Close
rs.Open "dscore", conn, adOpenKeyset, adLockReadOnly‘
(其中dscores调用的表，还有2个表，这里不会表示，会不会是这里出现问题)
Form2.Show 1
End Sub
报表与数据库连接代码
Option Explicit
Private Sub CRViewer91_CloseButtonClicked(UseDefault As Boolean)
End Sub
Private Sub Form_Load()
Dim oApp As New CRAXDRT.Application
Dim oRpt As CRAXDRT.Report
Dim reportName As String
Screen.MousePointer = vbHourglass reportName = "Report1.rpt"
Set oRpt = oApp.OpenReport(App.Path & reportName, 1)
oRpt.Database.SetDataSource rs
oRpt.ReadRecords
CRViewer91.ReportSource = oRptCRViewer91.ViewReport
Screen.MousePointer = vbDefault
End Sub
Private Sub Form_Resize()
CRViewer91.Top = 0
CRViewer91.Left = 0
CRViewer91.Height = ScaleHeight
CRViewer91.Width = ScaleWidth
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set rs = Nothing
Set conn = Nothing
Unload Form2
End Sub
最佳答案