Dim xsxm As WinForm.CheckedComboBox = e.Form.Controls("显示项目")

Dim tv As WinForm.TreeView = e.Form.Controls("TreeView1")

Dim s As String

Dim t As Table

Dim filt As String

Dim flt As String

Dim nlflt As String

Dim dr As DataRow

Dim dt As DataTable

\'Select cxlb.Value

\'Case "人员信息"

\'Select cxny.Value

\' Case "基层法律服务工作者"

\' Forms("法律服务人员查询").Open

s = e.Form.Controls("显示项目").Text

If s = "" OrElse s = "选择显示项目" Then

    Return

End If

\'t = Tables("基层法律服务人员信息表")

If User.Group = "遵义市司法局" Then

    filt = "1 = 1"

Else

    filt = "主管司法局 = \'" & User.Group & "\'"

End If

Dim cmd As New SQLCommand

cmd.C

cmd.CommandText = "Select [_Identify],身份证号码,主管司法局,法律服务所,性别,姓名,学历学位,学历学位序号,序号,IIF(年龄 < 20 ,\'小于20\',IIF(年龄 Between 20 And 25,\'20-25\',IIF(年龄 Between 26 And 30, \'26-30\',IIF(年龄 Between 31 And 35, \'31-35\'," & _

"IIF(年龄 Between 36 And 40,\'36-40\',IIF(年龄 Between 41 And 45,\'41-45\',IIF(年龄 Between 46 And 50,\'46-50\',IIF(年龄 between 51 And 55,\'51-55\',IIF(年龄 between 56 And 60,\'56-60\',IIF( 年龄 between 61 And 65,\'61-65\',IIF(年龄 between 66 And 70,\'66-70\',\'大于70\'))))))))))) As 年龄" & _

" From {基层法律服务人员信息表} Where " & filt