'''
Select Case e.DataCol.name
Case "部门", "科室", "岗位"
Dim filter As String = "部门='" & e.DataRow("部门") & "' and 科室='" & e.DataRow("科室") & "' and 岗位='" & e.DataRow("岗位") & "'"
Dim str As String = DataTables("表A").GetComboListString("姓名", filter)
If str > "" Then
e.DataRow("编内到位人数") = str.split("|").length
Else
e.DataRow("编内到位人数") = 0
End If
e.DataRow("编内到位人员") = str.replace("|", "、")
Case "截止目前编制","编内到位人数","空缺人数"
e.DataRow("空缺人数") = val(e.DataRow("截止目前编制")) - val(e.DataRow("编内到位人数"))
Case "编内到位人员"，"编内到位人员未聘"
Dim str As String = e.DataRow("编内到位人员")
If str > "" Then
If e.DataRow.IsNull("编内到位人员未聘") = False Then
str = str & "、" & e.DataRow("编内到位人员未聘")
End If
Else
str = e.DataRow("编内到位人员未聘")
End If
If str > "" Then
e.DataRow("实际在岗人数") = str.Split("、").Length
e.DataRow("编内实际在岗人数") = e.DataRow("实际在岗人数")
e.DataRow("编内实际在岗人员") = str
Else
e.DataRow("实际在岗人数") = 0
e.DataRow("编内实际在岗人数") = 0
e.DataRow("编内实际在岗人员") = Nothing
End If
End Select
加好友 
发短信
Post By：2018/6/11 22:44:00 [显示全部帖子]
