Dim bar As WinForm.NavBar = e.sender
Select Case bar.SelectedPage.ButtonText
    Case "项目管理"
        Forms("项目管理").Open
        MainTable = Tables("项目表")
    Case "报名"
        Forms("报名").Open
        MainTable = Tables("报名表")
    Case "号码注册"
        Forms("号码注册").open
        MainTable = Tables("号码注册表")
    Case "田赛记录"
        MainTable = Tables("成绩记录表")
        Tables("成绩记录表").SetColVisibleWidth("班级代码|38|年级|38|班级|39|号码|66|姓名|80|性别|38|参赛项目|96|田赛预赛成绩一|68|田赛预赛成绩二|69|田赛预赛成绩三|68|田赛预赛成绩|71|田赛预赛名次|44|田赛预赛决赛权|49|田赛决赛成绩一|67|田赛决赛成绩二|64|田赛决赛成绩三|64|田赛决赛成绩|60|田赛决赛名次|52|积分|51|备注|63")
    Case "径赛记录"
        MainTable = Tables("成绩记录表")
        Tables("成绩记录表").SetColVisibleWidth("班级代码|38|年级|38|班级|39|号码|66|姓名|80|性别|38|参赛项目|96|径赛预赛组别|36|径赛预赛道次|36|径赛预赛成绩|111|径赛预赛成绩值|50|径赛预赛名次|40|径赛预赛决赛权|45|径赛决赛组别|38|径赛决赛道次|37|径赛决赛成绩|104|径赛决赛成绩值|52|径赛决赛名次|30|积分|51|备注|63")
    Case "项目编排"
        MainTable = Tables("成绩记录表")
        Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
        trv.BuildTree("成绩记录表", "参赛项目|年级|性别")
        trv.Nodes.Insert("显示所有行",0)
       
End Select

以上是导航栏SelectedIndexChanged的代码  Case "项目编排"执行时出错。请专家指教！！！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

  Case "项目管理"第二次执行时，执行了Case "项目编排"的代码中的目录树，但主表还是项目表。

请专家测试一下，给予指教为感！！！

谢谢！！！