Foxtable(狐表)用户栏目专家坐堂 → [求助]点击不同ListView行,根据不同TabPage加载不同表数据


  共有2826人关注过本帖树形打印复制链接

主题:[求助]点击不同ListView行,根据不同TabPage加载不同表数据

帅哥哟,离线,有人找我吗?
chh2321
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:253 积分:2573 威望:0 精华:0 注册:2016/8/8 9:50:00
[求助]点击不同ListView行,根据不同TabPage加载不同表数据  发帖心情 Post By:2020/7/19 10:37:00 [只看该作者]

请教老师:如何点击不同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

运行后出现“未将对象引用设置到对象的实例。” 但是表的数据还是可以同步加载。

请问老师,代码有什么问题?


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109720 积分:558310 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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
……

 回到顶部
帅哥哟,离线,有人找我吗?
chh2321
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:253 积分:2573 威望:0 精华:0 注册:2016/8/8 9:50:00
  发帖心情 Post By:2020/7/19 21:48:00 [只看该作者]


谢谢老师,可以了

 回到顶部