水晶报表9和VB6 下标越界（在线等待）

Question

Dim rs As ADODB.Recordset
Dim conn As New ADODB.ConnectionPrivate Sub Form_Load()
    Dim Repor As New CrystalReport1
    
    Dim str As String
    conn.Open "DRIVER={microsoft odbc for oracle};server=;UID=;PWD="
    Set rs = New ADODB.Recordset
    str = "select * from t_rptstockinandout"
    
    rs.CursorLocation = adUseClient
    rs.Open str, conn
 Repor.Database.SetDataSource rs//此处出错，提示下标越界End Sub

Answer 1

你在CrystalReport的设计中加入表结构没？也就是你的CrystalReport报表module做好没

Answer 2

建议按照simanh() ( ) 说得仔细检查一下
crystal比较精细,有些问题你根本就不会注意到
有时稍不注意,就有问题

Answer 3

TO：simanh() 你说的方法可以实现！并且我已经实现了！我想知道如何动态的设定数据源！而不用事先做好报表文件，再向报表文件里加载数据！事前不设定表结构到报表上！