页面集合中表问题求教？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 页面集合中表问题求教？

共有1886人关注过本帖树形打印复制链接主题：页面集合中表问题求教？

lisheng1971

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：219 积分：1687 威望：0 精华：0 注册：2016/4/14 9:45:00

页面集合中表问题求教？ 发帖心情

Post By：2018/11/18 12:53:00 [只看该作者]

窗口中有：1、分区面板、目录树、页面集合、复选组合框各1个；

2、有表1，有A、B、C、D、E、F等列，其中C列为逻辑列（手动）；

3、Page1绑定表1，page2也绑定表1，作为副本，只显示A、B、C列且C列为TRUE的行；

4、想实现：在Page1中的表1的C列为TRUE或FALSE时，Page2中的行能自动增或减。

问题：目录树能正常按要求控制page1中的表1，但page2中的显示就不能达到要求，目录树事件代码如下：

Dim Filter As String

If e.node.Text = "加载所有数据" Then

Filter = ""

Else

Dim dr As DataRow = e.Node.DataRow '获取生成此节点的DataRow

Select Case e.Node.Level

Case 0

Filter ="[列A] = '" & dr("列A") & "'"

Case 1

Filter ="[列A] = '" & dr("列A") & "' And [列B] = '" & dr("列B") & "'"

End Select

End If

Dim tab As WinForm.TabControl = e.Form.controls("tabcontrol1")

If tab.SelectedPage.Text = "page1" Then

DataTables("表1").LoadFilter = Filter

DataTables("表1").Load()

ElseIf tab.SelectedPage.Text = "page2" Then

DataTables("表1").LoadFilter = Filter

DataTables("表1").Load()

End IF

请教版主：这个问题出在哪？

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/11/18 23:28:00 [只看该作者]

设置筛选，不要设置加载。如

Tables("副本表").Filter = "C = true"

lisheng1971

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：219 积分：1687 威望：0 精华：0 注册：2016/4/14 9:45:00

Post By：2018/11/19 9:45:00 [只看该作者]

以下是引用有点甜在2018/11/18 23:28:00的发言：

设置筛选，不要设置加载。如

Tables("副本表").Filter = "C = true"

水平有限，不是很明白，是在目录树的事件代码上修改？好象行不通！

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/11/19 9:47:00 [只看该作者]

DataTables("表1").LoadFilter = Filter
DataTables("表1").Load()
If tab.SelectedPage.Text = "page1" Then

ElseIf tab.SelectedPage.Text = "page2" Then
Tables("窗口1_Table2").Filter = "C = true"
End If

lisheng1971

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：219 积分：1687 威望：0 精华：0 注册：2016/4/14 9:45:00

Post By：2018/11/19 11:41:00 [只看该作者]

Dim Filter As String
If e.node.Text = "加载所有数据" Then
    Filter = ""
Else
    Dim dr As DataRow = e.Node.DataRow '获取生成此节点的DataRow
    Select Case e.Node.Level
        Case 0
            Filter ="[鉴定批次] = '" & dr("鉴定批次") & "'"
        Case 1
            Filter ="[鉴定批次] = '" & dr("鉴定批次") & "' And [工作单位] = '" & dr("工作单位") & "'"
    End Select
End If

Dim tab As WinForm.TabControl = e.Form.controls("tabcontrol1")
If tab.SelectedPage.Text = "报名审核" Then
    DataTables("鉴定考核表").LoadFilter = Filter
    DataTables("鉴定考核表").Load()
    If tab.SelectedPage.Text = "报名审核" Then
        Tables("鉴定考核表").Filter = ""
    ElseIf tab.SelectedPage.Text = "资审通过" Then
        Tables("鉴定管理_Table3").Filter = "资格审核 = true"
    End If
End If

理解能力太差，目录树事件这样写，还是没反应，没起到我想要的作用图片点击可在新窗口打开查看