以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  关于用表标签做导航  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=124041)

--  作者：just534 --  发布时间：2018/8/29 14:43:00 --  关于用表标签做导航 我用表标签做导航，在项目事件中  maintablechanging 设置代码： Select Case e.NewTableName     Case "钱款流水"         Forms("钱款信息").open     Case "开票流水"         Forms("开票信息").open     Case "单位信息"         Forms("单位信息").open End Select 我切换表时，会提示在窗口的afterload事件中，table1控件不存在，但是我窗体中是存在控件的

--  作者：有点甜 --  发布时间：2018/8/29 14:52:00 --   贴出你 afterLoad 事件的代码

--  作者：just534 --  发布时间：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("开票信息_Table3").AddUserStyle("hc", Color.Crimson, Color.Black) DataTables("开票信息_Table3").AddUserStyle("sh", Color.GreenYellow, Color.Black) DataTables("开票流水明细表").AddUserStyle("hc2", Color.Crimson, Color.Black) Tables("开票信息_Table1").Filter = "流水单号 is null"

--  作者：just534 --  发布时间：2018/8/29 15:16:00 --   你好，甜老师 已贴

--  作者：just534 --  发布时间：2018/8/29 15:51:00 --   我把代码贴在maintablechanged里就好了 可能是因为我的窗口设置 所属窗体为对应的表格，然后在maintabelchanging时表格还没转换的原因