[讨论]导航代码问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

baseMainform.SuspendLayout
Dim tbp As WinForm.TopicBar = e.Form.Controls("TopicBar1")
For Each pg As WinForm.TopicPage In tbp.Pages
    For Each lnk As WinForm.TopicLink In pg.Links
        lnk.Text = lnk.Text.Trim("←")
    Next
Next
Select Case e.Link.Text
     Case "单位基础数据"
         MainTable = Tables("单位基础数据")
     Case "人员流水帐"
         MainTable = Tables("人员流水帐")
     Case "人员增减"
         MainTable = Tables("人员增减")
     Case "信息表"
         MainTable = Tables("信息表")
     Case "登记审批签"
         MainTable = Tables("登记审批签")
     Case "备案汇总表"
         MainTable = Tables("信息表")
    Case "备案汇总表打印"
         MainTable = Tables("信息表")
     Case "人员变动情况明细"
         MainTable = Tables("人员增减")
     Case "人员明细表打印"
         MainTable = Tables("人员增减")
     Case "数据汇总统计"
         MainTable = Tables("数据汇总统计")
     Case "数据汇总表打印"
         MainTable = Tables("数据汇总统计")
    Case "备案人员查询"
         MainTable = Tables("人员增减")
Case "文电信息处理"
         MainTable = Tables("文电信息表")
Case "批文信息处理"
         MainTable = Tables("批文信息表")
End Select
e.Link.Text = e.Link.Text & "←"

主题：[讨论]导航代码问题