- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]点击不同ListView行，根据不同TabPage加载不同表数据 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=152697)
-- 发布时间：2020/7/19 10:37:00
-- [求助]点击不同ListView行，根据不同TabPage加载不同表数据
请教老师：如何点击不同ListView行，根据不同TabPage加载不同表的数据？
如图：
此主题相关图片如下：2020-07-19_10-24-09.png
此主题相关图片如下：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
运行后出现“未将对象引用设置到对象的实例。” 但是表的数据还是可以同步加载。
请问老师，代码有什么问题？
-- 发布时间：2020/7/19 21:21:00
--
Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
Dim lr As WinForm.ListViewRow = lvw.Current
if lr is nothing then return
……
-- 发布时间：2020/7/19 21:48:00
--
谢谢老师，可以了