报表打开，关闭，再打开的时候就出错，40分！

Question

我做了一个报表，但是每当打开，关闭，再打开的时候就出错，提示使自化错误，调试得时候rptSalaryReport.Show报错，请指教！谢谢！

Answer 1

假如你是用dataenvironment做的数据源
在打开报表前用DataEnvironment1.Connection1.Open
在报表关闭时用Private Sub DataReport_Terminate()
Set DataReport1 = Nothing
 DataEnvironment1.Connection1.Close
End Sub
好像还行，试试吧

Answer 2

If DataEnvironment1.rsCommand1.State <> adstateclose Then DataEnvironment1.rsCommand1.Close
End if
datareport1.Refresh
datareport1.Show 

Answer 3

On Error Resume Next
If DataEnvironment1.rsCommand1.State <> adstateclose Then DataEnvironment1.rsCommand1.Close
End if
DataEnvironment1.rsCommand1.Open "sql条件语句"
Unload 报表名
报表名.Show

Answer 4

If DataEnvironment1.rsCommand1.State <> adStateClosed Then    
   DataEnvironment1.rsCommand1.Close
End if
DataEnvironment1.rsCommand1.Open "SQL查询语句"
Unload 报表名
报表名.Show