不要用数据坏境了,直接用代码控制就行了。Dim cn As ADODB.Connection 
Dim rs As ADODB.Recordset 
Dim CnStr As String ' 打开连接。 
CnStr = "Provider=sqloledb;" & _ 
"Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; " 
Set Cn = New ADODB.Connection 
Cn.Open strCnn rs.open "select * from tablename where.....",cn
set DataReport.datasoure=rs这样应该OK了我没有调试的。

解决方案 »

  1.   

    如何使用代码来改变Data Environment Designer的设置?
    这个是不能更改的,因为在一个程序只能存在一种数据殷勤.
      

  2.   

    感谢您使用微软产品。以下有一篇将DataReport绑定到ADO的文章,您可以按照它的代码先试一下。然后,您可以根据它的原理修改您自己的代码:
    HOWTO: Dynamically Populate a Group Data Report in Visual Basic
    http://support.microsoft.com/default.aspx?scid=kb;EN-US;Q289793 - 微软全球技术中心 VB技术支持本贴子以“现状”提供且没有任何担保,同时也没有授予任何权利。具体事项可参见使用条款(http://support.microsoft.com/directory/worldwide/zh-cn/community/terms_chs.asp)。为了为您创建更好的讨论环境,请参加我们的用户满意度调查(http://support.microsoft.com/directory/worldwide/zh-cn/community/survey.asp?key=(S,49854782))。