If CurrentTable.name.contains("员工名单") Then
Dim filter As String = Tables("请假加班").filter
If filter > "" Then filter = filter & " and "
Dim xms As List(Of String) = DataTables("请假加班").GetValues("姓名",Tables("请假加班").filter)
For Each xm As String In xms
Dim qty As Integer = Tables("请假加班").Compute("sum(无薪假天数)", "姓名 ='" & xm & "' ")
Dim dr97 As DataRow = DataTables("员工名单").find("姓名 ='" & xm & "' ")
If dr97 IsNot Nothing Then
If qty > 0 Then
dr97("无薪假天") = qty
Else
dr97("无薪假天") = Nothing
End If
End If
Next
End If
上面的代码，我先在“请假加班”里面做一次筛选，然后再执行 Tables("请假加班").Compute("sum(无薪假天数)", "姓名 ='" & xm & "' ") 的计算，希望只计算筛选后的数据，但是实际上计算出来的qty 却还是筛选前的数据，请问是哪里的问题呢？谢谢。
加好友 
发短信
Post By：2021/11/27 15:51:00 [显示全部帖子]
