主题：老师，如何通过窗口按钮命令实现统计功能

老师，有两个表，且建立了关联，父表是产品表，子表是订单表，两个表通过产品代码建立关联

产品表有四列，分别为产品代码，产品名称，销售数量，销售金额

订单表有五列，分别为产品代码，产品名称，销售数量，销售金额，订单号

如果我想在订单表的窗口进行数据录入，录入后，通过该窗口的一个按钮将订单表中某一个产品的全部订单数量和金额总计写入产品表中，那么代码应该如何写呢？

我在帮助文件中找到的参考都是通过表事件实现的，但是，窗口的代码无法借用，我是初学者，您受累给指导一下

如何将以下代码修改成上述需求 

Dim dr As DataRow = e.DataRow

Dim dt As DataTable = DataTables("订单")

If e.DataCol.Name = "产品" Then

    dr("数量") = dt.Compute("Sum(数量)","[产品] = '" & dr("产品") & "'")

    dr("金额") = dt.Compute("Sum(金额)","[产品] = '" & dr("产品") & "'")

End If