老师好！ 下面两个是跨表统计的自动更新配套代码，如果要同时满足产品和型号两列进行统计，代码怎么改呀
统计表的DataColChanged事件代码：
If e.DataCol.Name = "产品" Then
e.DataRow("数量") = DataTables("订单").Compute("Sum(数量)","[产品] = '" & e.NewValue & "'")
End If
订单表的DataColChanged事件代码：
If e.DataCol.Name = "数量" Then
Dim pr As DataRow
pr = DataTables("统计").Find("产品 = '" & e.DataRow("产品") & "'")
If pr IsNot Nothing Then
pr("数量")= pr("数量") + e.NewValue - e.OldValue
End If
End If
加好友 
发短信
Post By：2019/8/27 10:05:00 [显示全部帖子]
