主题：麻烦帮我编一下这计算程序

 参考以前给你写过的代码，同样是那样计算啊。

 不会做，上传foxtable例子。

For Each ary() As String In DataTables("包装车间工资表").GetValues("日期|生产形式", "日期 is not null and 生产形式 <> '个人'")
    Dim drs As List(Of DataRow) = DataTables("包装车间工资表").Select("日期=#" & ary(0) & "# and 生产形式='" & ary(1) & "'")
    Dim smoney As Double = DataTables("包装车间工资表").compute("sum(计件金额)", "日期=#" & ary(0) & "# and 生产形式='" & ary(1) & "'")
    Dim stime As Double = DataTables("包装车间工资表").compute("sum(计件时间)", "日期=#" & ary(0) & "# and 生产形式='" & ary(1) & "'")
    Dim dj As Double = smoney / stime
    Dim ls As new List(Of String)
    For Each dr As DataRow In drs
        dr("分配单价") = dj
        dr("分配后金额") = dj * dr("计件时间")
    Next
Next
For Each dr As DataRow In DataTables("包装车间工资表").Select("生产形式 = '个人'")
    dr("分配单价") = Nothing
    dr("分配后金额") = dr("数量") * dr("单价")
Next

参考

http://www.foxtable.com/help/topics/1485.htm

Select Case e.DataCol.name
    Case "单价"
        DataTables("包装车间工资表").DataCols("产品名称规格").RaiseDataColChanged("产品名称规格 = '" & e.DataRow("产品名称") & "' and 工序 = '" & e.DataRow("工序") & "'")
End Select