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

Question

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

Answer 1

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

Answer 2

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, 2m_Report.Database.Tables(1).SetDataSource rs
m_Report.DiscardSavedDataCRViewer91.ReportSource = m_Report
CRViewer91.ViewReportEnd Sub