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