以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  二级页面集合刷新的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=115534)

--  作者:lungby
--  发布时间:2018/3/8 16:49:00
--  二级页面集合刷新的问题
如图所示的 页面集合  设计了两级,共用一个表


一级页面集合里的 slectedindexchanged  里面的编码如下:
Dim cdyq As WinForm.TabControl = e.Form.Controls("词典页签")    \'----一级页面集合的名称
Dim sbcdyq As WinForm.TabControl = e.Form.Controls("设备词典页签")    ’-----二级页面集合其中第二个的名称
Dim m As String = cdyq.SelectedPage.Text     \'定义n为当前页签的名称
Dim n As String = sbcdyq.SelectedPage.Text     \'定义n为当前页签的名称
Dim t As String = "词典_" & n
Tables(t).Filter = "类别 =\'" & n &"\'"

这样第二个可以即时刷新了,但是点击第三个“工作日志”的时候,里面二级页面集合无法即时刷新,显示的列内所有内容,请问应该如何设置?
图片点击可在新窗口打开查看此主题相关图片如下:未命名.jpg
图片点击可在新窗口打开查看


--  作者:有点甜
--  发布时间: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

--  作者:lungby
--  发布时间:2018/3/9 9:19:00
--  
不行,转到一级页面的“工作日志”中,里面的二级页面的首个显示还是显示的全部内容

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

--  作者:有点甜
--  发布时间:2018/3/9 10:16:00
--  
以下是引用lungby在2018/3/9 9:19:00的发言:
不行,转到一级页面的“工作日志”中,里面的二级页面的首个显示还是显示的全部内容

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

 

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


--  作者:lungby
--  发布时间:2018/3/9 11:42:00
--  
原来分三个 词典和三个显示隐藏及列宽的窗口,现在想将词典合为一个窗口,显示隐藏及列宽的合为一个窗口

一级页面集合转换的时候,里面二级页面集合显示的全部的,麻烦了……

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:测试.rar


[此贴子已经被作者于2018/3/9 11:44:17编辑过]

--  作者:有点甜
--  发布时间: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


--  作者:lungby
--  发布时间:2018/3/9 13:44:00
--  
可以刷新了,可是点击完后面再点击第一个跳转回来的时候,提示找不到控件的错误

错误提示的是
未设置对象变量或 With 块变量

问题:
1、可以使用这一个表在控制其他所属表吗,就是不同maintable切换中,也可以使用这个表控制,刚才试了下,不同maintable表切换的时候,提示“不存在名称为词典-委托台账的table”
2、在查询条件的时候,可以吧表中所属的条件也带上吗?

麻烦了
[此贴子已经被作者于2018/3/9 14:07:41编辑过]

--  作者:有点甜
--  发布时间:2018/3/9 15:00:00
--  

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:测试.table


--  作者:lungby
--  发布时间:2018/3/9 16:13:00
--  
弱弱的问下,怎么打开?考到原来文件夹,提示缺少table……   
没学过编程,第一次做,真的不会……



--  作者:有点蓝
--  发布时间:2018/3/9 16:17:00
--  
直接覆盖原来的文件,然后删除项目里的bin目录,再重新打开