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 & "←"
|