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

请帮忙简化一下代码？

 

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

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