2 wyzjiguang wyzjiguang 于 2014.01.14 23:40 提问

vb6 自带报表 代码设置datasource属性时死机,啥问题呢,谢谢。挺急的

代码开始:

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

Csdn user default icon
上传中...
上传图片
插入图片
准确详细的回答,更有利于被提问者采纳,从而获得C币。复制、灌水、广告等回答会被删除,是时候展现真正的技术了!