Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于用表标签做导航


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

主题：关于用表标签做导航
帅哥哟，离线，有人找我吗？
just534
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：15 积分：213 威望：0 精华：0 注册：2018/7/24 22:01:00 		关于用表标签做导航  发帖心情 Post By：2018/8/29 14:43:00 [只看该作者]

我用表标签做导航，在项目事件中  maintablechanging 设置代码：
Select Case e.NewTableName
    Case "钱款流水"
        Forms("钱款信息").open
    Case "开piao流水"
        Forms("开piao信息").open
    Case "单位信息"
        Forms("单位信息").open
End Select

我切换表时，会提示在窗口的afterload事件中，table1控件不存在，但是我窗体中是存在控件的
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/8/29 14:52:00 [只看该作者]

贴出你 afterLoad 事件的代码

 回到顶部
帅哥哟，离线，有人找我吗？
just534
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：15 积分：213 威望：0 精华：0 注册：2018/7/24 22:01:00 		  发帖心情 Post By：2018/8/29 15:03:00 [只看该作者]

Dim wbl As WinForm.Table = e.Form.Controls("Table1")
Dim tbl As Table = wbl.Table
tbl.ExtendLastCol=True

Dim wbl3 As WinForm.Table = e.Form.Controls("Table3")
Dim tbl3 As Table = wbl3.Table
tbl3.ExtendLastCol=True


DataTables("开piao信息_Table3").AddUserStyle("hc", Color.Crimson, Color.Black)
DataTables("开piao信息_Table3").AddUserStyle("sh", Color.GreenYellow, Color.Black)
DataTables("开piao流水明细表").AddUserStyle("hc2", Color.Crimson, Color.Black)

Tables("开piao信息_Table1").Filter = "流水单号 is null"
 回到顶部
帅哥哟，离线，有人找我吗？
just534
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：15 积分：213 威望：0 精华：0 注册：2018/7/24 22:01:00 		  发帖心情 Post By：2018/8/29 15:16:00 [只看该作者]

你好，甜老师 已贴

 回到顶部
帅哥哟，离线，有人找我吗？
just534
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：15 积分：213 威望：0 精华：0 注册：2018/7/24 22:01:00 		  发帖心情 Post By：2018/8/29 15:51:00 [只看该作者]

我把代码贴在maintablechanged里就好了 可能是因为我的窗口设置 所属窗体为对应的表格，然后在maintabelchanging时表格还没转换的原因

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03711 秒, 4 次数据查询