以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=31236)

--  作者:wsxdwh
--  发布时间:2013/4/12 10:14:00
--  [求助]

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


--  作者:wsxdwh
--  发布时间:2013/4/12 10:19:00
--  

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

请专家测试一下,给予指教为感!!!

[此贴子已经被作者于2013-4-12 10:19:49编辑过]

--  作者:Bin
--  发布时间:2013/4/12 10:21:00
--  
未见有报错啊
--  作者:Bin
--  发布时间:2013/4/12 10:24:00
--  
Case "项目编排"
        MainTable = Tables("成绩记录表")
        Dim trv As WinForm.TreeView = e.Form.Controls("TreeView2")
        trv.BuildTree("成绩记录表", "参赛项目|年级|性别")
        trv.Nodes.Insert("显示所有行",0)
        
End Select
--  作者:wsxdwh
--  发布时间:2013/4/12 10:29:00
--  

谢谢!!!