vb中水晶报表数据源更换的问题

[ancle]

在一台机器上作了张水晶报表（数据源通过ado连接），添加到vb中，生成一个工程。把这个工程放到另一台机器里，连接的是不同的服务器，但是有相同的数据库。（一台测试用服务器，一台正式的服务器）由于数据源不同，所以会报错。请问可以在vb中写些代码来自动根换数据源吗

[IE14571]

VB的我沒有寫過,不過它也應該有一個屬性叫做ReportSource吧,你要寫程式去給這個屬性賦值,應該就可以解決掉你的問題.

[wumylove1234]

呵呵!

[RUKYO]

自动根换数据源?

[zhanghanqin]

Dim m_Report As CRAXDRT.Report
Dim m_App As CRAXDDRT.Application
dim cn as new adodc.ConnectionString
dim rs as new adodc.Recordset


Private Sub Form_Load()
cn.open "............"

Set m_App = New CRAXDRT.Application
Set m_Report = m_App.OpenReport(App.Path & "\report1.rpt")

rs.Open "select * from table ", cn, 3, 2

m_Report.Database.Tables(1).SetDataSource rs
m_Report.DiscardSavedData

CRViewer91.ReportSource = m_Report
CRViewer91.ViewReport

End Sub