我用 DataEnvironment 与 datareport 来实现报表打印
建立连接Connection1 与命令Command1 连接D：\工程\building数据库下的T_Buildingrecondition表
Connection1建立连接测试成功，可执行打印按钮时总是提示无效数据源 请各位帮帮忙吧



打印按钮代码如下


If DataEnvironment1.rsCommand1.State = adStateOpen Then
DataEnvironment1.rsCommand1.Close
End If
DataEnvironment1.rsCommand1.Open "select * from T_Buildingrecondition where 房产证号 between '" + Text1.Text + "' and '" + Text2.Text + "'"
If DataEnvironment1.rsCommand1.RecordCount > 0 Then
DataReport1.Show 1
Else
MsgBox "此段没有记录，请重新选择！", vbOKOnly, "提示"
DataEnvironment1.rsCommand1.Close
End If

[此贴子已经被作者于2005-12-23 9:39:57编辑过]

你确定你是这样写的？

是的，我是从程序中复制的代码，不会有错的

期待各位的指教