急 vb6用data report不能持续显示报表

Question

我用一个数据环境：DataEnvironment1，下连多个command, 每个command联接到一个数据库（.mdb）的某一个table，且每个command都是其对应的一个报表（DataReport）的Datamember，且这些报表的Datasource都是DataEnvironment1。 我的问题是：当在VB下第一次显示某个报表时能正确显示，但若想再显示一次这个报表，或另外一个报表，就会出现错误：“从当前数据资源中取得行值失败”，除非关闭整个程序重新启动，才能再显示一次某个报表，原因在哪里？ 
程序如下： 
Private Sub Command1_Click() 
If DataEnvironment1.Connection1.State <> 0 Then 
DataEnvironment1.Connection1.Close 
End If 
DataEnvironment1.Connection1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\ 某个.mdb;Persist Security Info=False" 
DataReport1.Show 
End Sub

Answer 1

将你的程序改为这样试试
Private Sub Command1_Click() 
    If DataEnvironment1.Connection1.State =adStateOpen Then 
       DataReport1.Show  
    else
       DataEnvironment1.Connection1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\ 某个.mdb;Persist Security Info=False" 
    DataReport1.Show
    end if 
End Sub