vb调水晶报表left join后的数据表不会动态刷新问题

[myghy]

vb调水晶报表left join后的数据表不会动态刷新问题
报表建立时的数据库是xxcw1，程序中动态连接至xxcw,第一个表czf数据会更新，第2个表cwl不会更新，怎么回事？语句如下：
Set Report = m_Application.OpenReport("G:\ysk.rpt")
strCnn = "Provider=sqloledb;Data Source=GhyXp;Initial Catalog=xxcw;User Id=sa;Password=;"
cnn1.Open strCnn

adoRS.Open "Select czf.*,cwl.dmm From " & _
"Czf left outer join cwl on czf.n1=cwl.dm", cnn1, adOpenDynamic, adLockBatchOptimistic

Report.DiscardSavedData
Report.Database.SetDataSource adoRS

CRViewer91.ReportSource = Report
CRViewer91.ViewReport

结果是：第一个表是xxcw中数据，关联的cwl成了xxcw1(也就是当初建立rpt时的数据库),怎么解决？
愁了2天了，大侠快快救命阿

[myghy]

ｕｐ

[myghy]

没人回复，哭Ｓ，今天打电话给销售商，说非正版的会有数据连接问题，可能吗？

[hanaichun]

不要哭，我和你有相同的难题，不知怎么解决

[leayh]

非正版的会有数据连接问题？或许，但我没遇见过。
你的问题同在设置数据源上，如果用了join语句，那应该设置两次。语句如下：
Report.DiscardSavedData
Report.Database.SetDataSource adoRs, 3, 1
Report.Database.SetDataSource adoRs, 3, 2

[myghy]

问题已解决，等等有空来写

[xxcw]

把setdatasource改成下面的：
Dim CPProperties As craxdrt.ConnectionProperties
Dim DBTable As craxdrt.DatabaseTable
Set DBTable = Report.Database.Tables(1)
Set CPProperties = DBTable.ConnectionProperties
DBTable.DllName = "crdb_ado.dll"
CPProperties.DeleteAll
CPProperties.Add "Provider", "SQLOLEDB"
CPProperties.Add "Data Source", myServer
CPProperties.Add "Initial Catalog", myDatabase
CPProperties.Add "User ID", "sa"
CPProperties.Add "Password", ""
DBTable.Location = "czf"


Set DBTable = Report.Database.Tables(2)
Set CPProperties = DBTable.ConnectionProperties

CPProperties.DeleteAll
CPProperties.Add "Provider", "SQLOLEDB"
CPProperties.Add "Data Source", myServer
CPProperties.Add "Initial Catalog", myDatabase
CPProperties.Add "User ID", "sa"
CPProperties.Add "Password", ""
DBTable.Location = "cwl"

[myghy]

用云的方法试了不行,数据一条也不显示了,而且发现setDataSource方法速度暴慢,xxcw的方法可行