主题：我想在统计表中点击相应数据后显示分表中的具体信息？

If e.Table.Name = "人事统计" Then

    Dim cn As String = e.Col.Caption

    If cn.Contains("_") Then

        Dim yue() As String = {"一月","二月","三月","四月","五月","六月","七月"}

        Dim ar() As String = cn.Split("_")

        Dim m As Integer = Array.IndexOf(yue,ar(0))+1

        Dim d As Date = new Date(Date.Today.Year,m,1)

        Select Case ar(2)

            Case "退休"

                Dim str As String = DataTables("退休人员信息").GetComboListString("姓名","单位简称='" & e.Row("单位简称") & "' and 退休时间 >= #" & d & "# And 退休时间 < #" & d.AddMonths(1) & "#")

                msgbox(str)

            Case "死亡"

                Dim str As String = DataTables("减少人员信息").GetComboListString("姓名","原单位简称='" & e.Row("单位简称") & "' and 减少类型='死亡' and 减少时间 >= #" & d & "# And 减少时间 < #" & d.AddMonths(1) & "#")

                msgbox(str)

        End Select

    End If

End If

上面代码只是处理了一部分，提供参考，剩余自己补充完整