代码开始:
E_打印.Commands("实验室检查报告").CommandType = adCmdText
'--------“实验室检查报告”是数据环境下的一个command-----------
E_打印.Commands("实验室检查报告").CommandText = StrSql
Set R_检查报告.DataSource = E_打印
'-------R_检查报告为datareport报表名--------
R_检查报告.DataMember = "实验室检查报告"
E_打印.实验室检查报告 '打开记录集
If E_打印.rs实验室检查报告.RecordCount = 0 Then
MsgBox "没有数据不能打印!您的操作被取消!", vbInformation
Exit Sub
End If
R_检查报告.Show
代码结束。
我在本地测试的时候报表是可以用的,数据也准确。但是我换了台电脑,把本地数据库变为局域网内另一台电脑的数据库。程序就出问题了,运行某行代码就像死机了一样。 我单步调试程序,发现问题出在这行代码:
Set R_检查报告.DataSource = E_打印
请各位大哥帮忙搞定啊 领导等着我解决问题呢。
vb6+sqlserver