主题：请帮忙简化一下代码？

请帮忙简化一下代码？

 

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

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()

如果节点名称每个都是有用的.可以再简化

谢谢，3楼代码正是我想用的