access & DataEnvironment & datareport 怎么不能刷新啊 100分求救

Question

这样写就可以刷新了If DataEnvironment1.rsCommand1.State = adStateOpen Then
 DataEnvironment1.rsCommand1.Close
End IfDataReport1.Show

Answer 1

If DataEnvironment1.rsCommand1.State = adStateOpen Then
 DataEnvironment1.rsCommand1.Close
End If
这样写肯定可以刷新的，关键是rsCommand1并不是固定的，要看你的具体的命令，但你一定要确定打完DataEnvironment1.后自动有rsCommand1之类的命令

Answer 2

With DataEnvironment1.rsCommand1
  
  If .State = adStateOpen Then .Close
'.Source = sql
.Open
  End With
datereport1.show一定可以