Dim dr As DataRow = Args(0)
Dim t As Table = args(1)
Dim sum As Integer = dr("对碰累积_A") + dr("对碰累积_B")
Dim drs As List(Of DataRow) = DataTables("员工信息表").Select("上级='" & dr("会员编号") & "'") -----集合中最多包含两个值
If drs.Count > 0 Then
For Each dr2 As DataRow In drs
if dr("下级_A")= dr2("会员编号") then ---计算dr（"会员编号"）A分支的和
sum += Functions.Execute("Chid",dr2,t)
endif
Next
End If
Dim rr As Row = t.AddNew
rr("会员编号")=dr("会员编号")
rr("累积业绩") = sum
Return sum
-----函数需要两个返回值的
计算按钮事件
Tables("工资计算_table1").StopRedraw
For Each dr As DataRow In DataTables("员工信息表").Select("上级 is null")
Functions.Execute("Chid",dr,Tables("工资计算_table1"))
Next
Tables("工资计算_table1").ResumeRedraw
加好友 
发短信
Post By：2017/4/17 23:43:00 [显示全部帖子]
此主题相关图片如下：2017497495139274.png
此主题相关图片如下：qq图片20170418145244.jpg