两个command对应两个datareport,不能同时打开?请高手指点!
两个command对应两个datareport(同一个data Environment,不同的connection)
Private Sub command1_Click() '打印主页面
If deMaterial.Baogao1.State = adStateOpen Then
deMaterial.Baogao1.Close
End If
Dim par As String
par = txt_baogao_id.Text
deMaterial.cmdBaogao1 par
Load rptBaogao1
rptBaogao1.Show
End Sub
Private Sub command2_Click() '打印页面2
If deMaterial.Baogao2.State = adStateOpen Then
deMaterial.Baogao2.Close
End If
Dim par As String
par = txt_baogao_id.Text
deMaterial.cmdBaogao2 par
Load rptBaogao2
rptBaogao2.Show
End Sub
点击一个command后再点就出错:错误3704,对象关闭时,不能操作
请问怎么解决?谢谢了!