主题：跨表统计

 这样改

If e.DataCol.Name = "产品" Then '发生变化的是产品列.
    '则累计订单表中同名产品总的销售量,然后赋值给变动行的数量列
    e.DataRow("数量") = DataTables("订单").Compute("Sum(数量)","[产品] like '" & e.NewValue & "-*'")
End If