我想在统计表中点击相应数据后显示分表中的具体信息？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

下载信息 [文件大小：下载次数： ]
点击浏览该文件:人事管理 - 0726.rar

有点蓝老师，我把其它的都删除了，你看能不能打开，谢谢！

人事台账按钮：

……

Tables("人事统计").Cols("台账计算人数").Move(3) '将现实有人数排到第4列位置

Tables("人事统计").Cols("空编数").Move(4) '将现实有人数排到第4列位置

Tables("人事统计").SetColVisibleWidth("................

Tables("人事统计").SetHeaderRowHeight(25,25,75)

DataTables("人事统计").GlobalHandler.Click = True

Forms("人事台账").open

全局表click事件

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

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

下载信息 [文件大小：下载次数： ]
点击浏览该文件:人事管理副本.zip

[此贴子已经被作者于2019/7/29 10:22:50编辑过]

有点蓝老师，这句代码怎么改，可以并列几种调动类型，谢谢！

Case "学校间调出"
Dim str As String = DataTables("调动人员信息").GetComboListString("姓名","原工作单位='" & e.Row("单位简称") & "' and 调动类型 = '农村间调动' Or 调动类型 = '城区间调动' Or 调动类型 = '城区调农村' Or 调动类型 = '农村调城区' Or 调动类型 = '遴选' and 调动时间 >= #" & d & "# And 调动时间 < #" & d.AddMonths(1) & "#")
msgbox(str)

Dim str As String = DataTables("调动人员信息").GetComboListString("姓名","原工作单位='" & e.Row("单位简称") & "' and (调动类型 = '农村间调动' Or 调动类型 = '城区间调动' Or 调动类型 = '城区调农村' Or 调动类型 = '农村调城区' Or 调动类型 = '遴选') and 调动时间 >= #" & d & "# And 调动时间 < #" & d.AddMonths(1) & "#")

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