主题：相同的产品不同的客户不同的单价，如何求平均价格、提前适用的单价

分客户产品表的DataColChanged事件：

Dim price As Double = e.DataTable.Compute("Sum(单价)","产品编号 = '" & e.DataRow("产品编号") & "'")  '算出相同产品的价格之和
Dim i As Integer = e.DataTable.Compute("Count(产品编号)","产品编号 = '" & e.DataRow("产品编号") & "'")  '算出这种产品的个数
Dim dr As DataRow = DataTables("产品表").Find("产品编号 = '" & e.DataRow("产品编号") & "'")  '在产品表中找到这种产品对应的行
dr("单价") = price / i  '价格之和除以产品个数。