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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 二级页面集合刷新的问题

共有3645人关注过本帖树形打印复制链接主题：二级页面集合刷新的问题

有点甜

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

加好友

发短信

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

Post By：2018/3/8 17:44:00 [显示全部帖子]

Dim cdyq As WinForm.TabControl = e.Form.Controls("词典页签")    '----一级页面集合的名称
Dim sbcdyq As WinForm.TabControl = e.Form.Controls("设备词典页签")    '-----二级页面集合其中第二个的名称
Dim m As String = cdyq.SelectedPage.Text     '定义n为当前页签的名称
For Each p As WinForm.TabPage In sbcdyq.TabPages
    Dim n As String = p.Text     '定义n为当前页签的名称
    Dim t As String = "词典_" & n
    Tables(t).Filter = "类别 ='" & n &"'"
Next

有点甜

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

加好友

发短信

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

Post By：2018/3/9 10:16:00 [显示全部帖子]

以下是引用lungby在2018/3/9 9:19:00的发言：
不行，转到一级页面的“工作日志”中，里面的二级页面的首个显示还是显示的全部内容

一级页面集合的slectedindexchanged是不是不需要体现("设备词典页签") 的名称？

请上传具体foxtable项目说明你的问题。

有点甜

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

加好友

发短信

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

Post By：2018/3/9 12:34:00 [显示全部帖子]

代码

Dim cdyq As WinForm.TabControl = e.Form.Controls("词典页签")
Dim m As String = cdyq.SelectedPage.Text
Dim sbcdyq As WinForm.TabControl = e.Form.Controls(m.substring(0,2) & "词典页签")

For Each p As WinForm.TabPage In sbcdyq.TabPages
Dim n As String = p.Text '定义n为当前页签的名称
e.form.controls(n).Table.Filter = "类别 ='" & n &"'"
Next