Dim dr As DataRow = e.DataRow
Dim dt As DataTable =DataTables("人员信息")
Dim de As DataTable =DataTables("人员信息")
If e.DataCol.Name = "单位"
For Each dc As DataCol In e.DataTable.DataCols
If dc.Name.StartsWith("实有职级_") Then
Dim cnt As Integer = dt.Compute("Count(姓名)", "单位='" & e.NewValue & "' And 职级并行 = '" & dc.Name.Split("_")(1) & "'")
If cnt > 0 Then
dr(dc.Name) = cnt
End If
End If
‘-----------------------------------以下为统计实配领导正副职------------------------------
If dc.Name.StartsWith("实配职数_") Then
Dim cnt As Integer = de.Compute("Count(姓名)", "单位='" & e.NewValue & "' And 单位正副职 = '" & dc.Name.Split("_")(1) & "'")
If cnt > 0 Then
dr(dc.Name) = cnt
End If
End If
‘-----------------------------------以上为统计实配领导正副职------------------------------
Next
End If
再麻烦问一下，我按照大侠您的代码添加了一点，用来统计实配领导数。但是好像没有反应。（我在“人员信息“表中添加了一列”单位正副职“里面用来存放领导正职和领导副职）
加好友 
发短信
Post By：2019/8/27 16:31:00 [只看该作者]
