试试
Select Case e.Node.Text
Case "报告发送"
If DataTables.Contains("报告信息") = False Then
DataTables.Load("报告信息")
Application.DoEvents()
End If
MainTable = Tables("报告信息")
If Forms("报告发送").Opened = False Then
Forms("报告发送").open()
Application.DoEvents()
End If
If Forms("报告发送").Opened Then
Dim Filter As String = "[报告进度] = '报告已批准' AND [已打印] = 1 AND [已发送] = 0"
With DataTables("报告发送_Table1")
.LoadFilter = ""
.LoadFilter = Filter
.LoadTop = 50
.LoadPage = 0
.Loadover = "报告编号"
.Load
Forms("报告发送").Controls("TextBox页数页码").text = "1/" & DataTables("报告发送_Table1").Totalpages
End With
Tables("报告发送_Table1").AutoSizeCols()
End If
End Select