有道理 我想楼主可能是不知道如何在报表显示记录罢了
With deTest.rscmdTest
If .state = 1 Then .Close
.Source = "select ..."
.Open
Set drpTest.DataSource = deTest.rscmdTest
drpTest.Show
drpTest.Refresh
End With
正好解决此问题
With deTest.rscmdTest
If .state = 1 Then .Close
.Source = "select ..." '新的SQL语句
.Open
Set drpTest.DataSource = deTest.rscmdTest 'drpTest报表显示记录
drpTest.Show
drpTest.Refresh
End With