使用递归
函数Chid
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
sum += Functions.Execute("Chid",dr2,t)
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/18 10:25:00 [显示全部帖子]
