- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]行切换时页面折叠 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=173818)
-- 发布时间：2021/12/17 16:14:00
-- [求助]行切换时页面折叠
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:窗口展开.foxdb |
-- 发布时间：2021/12/17 16:52:00
--
帮助搜索“空值”，学学怎么判断空值
-- 发布时间：2021/12/17 17:56:00
-- 回复：（有点蓝）帮助搜索“空值”，学学怎么判断空值...
谢蓝主，会空值判断了。
-- 发布时间：2021/12/20 10:08:00
--
谢蓝主，还要请教 求助： 实现 spl.Panel1 页面可见时，显示对应 页面列的页签（如果不存在就显示 国家 这个页签）
-- 发布时间：2021/12/20 10:20:00
--
参考：http://www.foxtable.com/webhelp/topics/0832.htm
-- 发布时间：2021/12/20 10:45:00
-- 回复：（有点蓝）参考：http://www.foxtable.com/webh...
蓝主，下面代码报错，求助修改
表A_CurrentChanged
If e.Table.Current IsNot Nothing AndAlso Forms("44").Opened Then
Dim spl2 As WinForm.SplitContainer = e.Form.Controls("SplitContainer1") \'父页面
Dim spl As WinForm.SplitContainer = e.Form.Controls("SplitContainer3") \'子页面
Dim rw As Row = e.Table.Current
\'Dim fhtml As String = rw("html_内容")
\'Dim fweb As String = rw("Website")
If rw.IsNull("html_内容") Then
spl2 .Panel2.Collapsed = False \'父页面
spl.Panel1.Collapsed = False \'子页面
spl.Panel2.Collapsed = True \'子页面
Dim pg As WinForm.TabPage
pg = Forms("44").Controls("TabControl1").TabPages(rw("页面"))
If pg IsNot Nothing Then
Forms("44").Controls("TabControl1").SelectedPage = pg
Else
Forms("44").Controls("TabControl1").SelectedPage= Forms("44").Controls("TabControl1").SelectedPage("国家")
End If
End If
If rw.IsNull("Website") Then
spl2 .Panel2.Collapsed = False \'父页面
spl.Panel1.Collapsed = True \'子页面
spl.Panel2.Collapsed = False \'子页面
End If
If rw.IsNull("html_内容") = False And rw.IsNull("Website") = False Then
spl2 .Panel2.Collapsed = False\'父页面
spl.Panel1.Collapsed = False \'子页面
spl.Panel2.Collapsed = False \'子页面
Dim pg As WinForm.TabPage
pg = Forms("44").Controls("TabControl1").TabPages(rw("页面"))
If pg IsNot Nothing Then
Forms("44").Controls("TabControl1").SelectedPage = pg
Else
Forms("44").Controls("TabControl1").SelectedPage= Forms("44").Controls("TabControl1").SelectedPage("国家")
End If
End If
If rw.IsNull("html_内容") And rw.IsNull("Website") Then
spl2 .Panel2.Collapsed = True
End If
End If
\'Dim pg As WinForm.TabPage
\'pg = Forms("窗口1").Controls("TabControl1").TabPages(1)
\'pg.Visible = False
-- 发布时间：2021/12/20 11:42:00
--
Forms("44").Controls("TabControl1").SelectedPage= Forms("44").Controls("TabControl1").tabPages("国家")
-- 发布时间：2021/12/20 16:28:00
-- 回复：（有点蓝）Forms("44").Controls("TabControl1"...
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:窗口展开 页面.foxdb |
此主题相关图片如下：求助 根据 页面 列值 显示页签如彩色箭头.png
-- 发布时间：2021/12/20 16:30:00
--
没有给每个页签设置名称