专家坐堂-请帮忙简化一下代码？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请帮忙简化一下代码？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=58234)

--  作者：lyfxybc
--  发布时间：2014/10/14 11:15:00
--  请帮忙简化一下代码？

请帮忙简化一下代码？

e.Form.Controls("TabControl1").SelectedIndex = 0

For Each c As Col In Tables("基本信息").Cols

    c.Visible = False

Next

Select Case e.Node.Text

        Case "民族"

            Tables("基本信息").Cols("民族").Visible = True

            DataTables("基本信息").LoadFilter ="民族 Is not null" \'设置加载条件

            DataTables("基本信息").Load()

       Case "政治面貌"

           Tables("基本信息").Cols("政治面貌").Visible = True

            DataTables("基本信息").LoadFilter = "政治面貌 is not null" \'设置加载条件

            DataTables("基本信息").Load()

       Case "婚姻状况"

           Tables("基本信息").Cols("婚姻状况").Visible = True

            DataTables("基本信息").LoadFilter = "婚姻状况 is not null" \'设置加载条件

            DataTables("基本信息").Load()

      Case "学历"

            Tables("基本信息").Cols("学历").Visible = True

            DataTables("基本信息").LoadFilter = "学历 is not null" \'设置加载条件

            DataTables("基本信息").Load()

       Case "专业"

           Tables("基本信息").Cols("专业").Visible = True

            DataTables("基本信息").LoadFilter = "专业 is not null" \'设置加载条件

            DataTables("基本信息").Load()

      Case "籍贯"

            Tables("基本信息").Cols("籍贯").Visible = True

            DataTables("基本信息").LoadFilter = "籍贯 is not null" \'设置加载条件\'

            DataTables("基本信息").Load()

        Case "职务"

            Tables("基本信息").Cols("职务").Visible = True

            DataTables("基本信息").LoadFilter = "职务 is not null" \'设置加载条件\'

            DataTables("基本信息").Load()

End Select

--  作者：Bin
--  发布时间：2014/10/14 11:20:00
--

e.Form.Controls("TabControl1").SelectedIndex = 0
For Each c As Col In Tables("基本信息").Cols
    c.Visible = False
Next
dim cn as string
Select Case e.Node.Text
        Case "民族"
cn = "民族"
       Case "政治面貌"
cn = "政治面貌"
       Case "婚姻状况"
cn = "婚姻状况"
      Case "学历"
cn = "学历"
       Case "专业"
cn = "专业"
      Case "籍贯"
  cn = "籍贯"
        Case "职务"
            cn = "职务"
End Select
Tables("基本信息").Cols(cn).Visible = True
            DataTables("基本信息").LoadFilter = cn & " Is not null" \'设置加载条件
            DataTables("基本信息").Load()

--  作者：Bin
--  发布时间：2014/10/14 11:21:00
--
如果节点名称每个都是有用的.可以再简化

e.Form.Controls("TabControl1").SelectedIndex = 0
For Each c As Col In Tables("基本信息").Cols
    c.Visible = False
Next
Tables("基本信息").Cols(e.Node.Text).Visible = True
            DataTables("基本信息").LoadFilter = e.Node.Text & " Is not null" \'设置加载条件
            DataTables("基本信息").Load()

--  作者：lyfxybc
--  发布时间：2014/10/14 11:49:00
--
谢谢，3楼代码正是我想用的
再次感谢