我想打印收据,但我遇到了问题(I want to print a reciept but i face a problem)
IT问题网 2021-02-22 00:00:00
问 题
在这个项目中,我使用datareport和dataenvironment打印收据。
请检查以下代码
私有 sub cmdprint_click()
' 设置rpt =新adodb.recordset
' rpt.open"select * from reception_detail where id ="amp; val(txtid.text),con,adopenstatic,adlockoptimistic,adcmdtext
dataenvironment1.commands( 1 )。commandtext = " 选择id,patient_name,patient_age,referredby,test,来自reception_detail的金额,其中id ="amp; val(txtid.text)
rptreciept.printreport
rptreciept.show
end sub
当我点击打印命令时,它显示以下错误
运行时错误''5'':lt; br />
lt; br />
无效的程序调用或参数
当我点击调试时它突出显示以下行
dataenvironment1.commands(1).commandtext ="select id,patient_name,patient_age,referedby,test,amount from reception_detail where id ="amp; val(txtid.text)
解决方案
你的主要问题是vb6。
不要!
获得vb.net,除了支持vb6之外,与vb6不同,还有更多的功能。
至于你的代码,是否已在本节之前做出所有声明?
命令是否为数组?
很难说明,但是尝试分阶段检查。放一个断点,然后看看
dataenvironment1 - 它有效吗?
dataenvironment1.commands - 好吗?
dataenvironment1.commands(1 ) - 这是可能是问题。
dataenvironment1.commands(1).commandtext - 应该没问题。
如果所有这些都看起来不错,请检查txtid中的值,然后检查txtid.text。
分享: