在这个项目中,我使用的数据报表打印的收据和数据环境。
请检查下面的代码
当我点击打印命令如下,它显示了以下错误Private Sub cmdprint_Click()
'Set rpt = New ADODB.Recordset
'rpt.Open "select * from reception_detail where ID=" & Val(txtid.Text), Con, adOpenStatic, adLockOptimistic, adCmdText
DataEnvironment1.Commands(1).CommandText = "select ID,patient_name,patient_age,referedby,test,amount from reception_detail where ID=" & Val(txtid.Text)
rptreciept.PrintReport
rptreciept.Show
End Sub
运行时错误'5':
无效的过程调用或参数
它突出了以下行,当我点击调试
(1)DataEnvironment1.Commands的CommandText ="SELECT ID,patient_name,patient_age,referedby,测试,从reception_detail量,其中ID ="放大器;瓦尔(txtid.Text)