请教老师:如何点击不同ListView行,根据不同TabPage加载不同表的数据?
如图:

此主题相关图片如下:2020-07-19_10-24-09.png

我在ListView的RowSelectionChanged事件中写如下代码:
Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
Dim lr As WinForm.ListViewRow = lvw.Current
Dim pg As WinForm.TabPage = Forms("窗口1").Controls("TabControl3").SelectedPage
Dim Filter1 As String = "[编号] = '" & lr("编号") & "' and 日期 =#" & lr("日期") & "#"
Dim Filter2 As String = "[编号] = '" & lr("编号") & "'"
Select Case pg.Text
Case "管理4"
DataTables("表A").LoadFilter = Filter2
DataTables("表A").Load
Case "管理5"
DataTables("表B").LoadFilter = Filter1
DataTables("表B").Load
Case "管理6"
DataTables("表C").LoadFilter = Filter1
DataTables("表C").Load
End Select
运行后出现“未将对象引用设置到对象的实例。” 但是表的数据还是可以同步加载。
请问老师,代码有什么问题?