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

     这个计算并不难，在excel中并不复杂，K列单价等于安天把生产形式为A+B对应的I列金额小计，除于对应的计件时间小计，然后用这个单价乘以每行对应的计件时间得出分配金额，生产形式为个人的计件金额直接用数量乘H列单价，我由于还没完全看完教程，对语句、函数不熟悉，知道大约的方法，可编出来提示报错，因为急着算工资，麻烦帮我编一下，如果让我自己编，恐要等我把所有教程看完，心领神会才行。
此主题相关图片如下：捕获.png

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

 

 不会做，上传foxtable例子。

     不完全一样，我改过，但不成功，把代码注识了。

     另外这按钮也出错了，今晚看教程看了一晚，自己动手编程弄了很久不行。

     代码我都全注识了，因为报错影响我输入。

    excel官网专家解答要辛苦吗？我在那混了几年从没人要过辛苦费，你要是要辛苦费，那不用你解了，我想我应该可以自己解决，只是要迟点，现在赶工资，不能全心于此。我在EXCEL函数论坛发过很多次帖没人解答，最后还不是自己解决了，有人帮就是快点，没人帮慢点，这题压根儿不难，我也不是算不出来，我有excel公式可以应付，现在只是改软件快点运算，没人帮我就慢慢来。

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

 

    谢谢，我就是不会设

    Dim smoney As Double = DataTables("包装车间工资表").compute("sum(计件金额)", "日期=#" & ary(0) & "# and 生产形式='" & ary(1) & "'")
    Dim stime As Double = DataTables("包装车间工资表").compute("sum(计件时间)", "日期=#" & ary(0) & "# and 生产形式='" & ary(1) & "'")
    里的compute("sum(计件金额)", 所以弄不成功，而且最基本的函数、代码写法我跨过了，没看，昨晚才怱怱忙忙恶补，所以写不好那些代码，非常谢谢。

    在价格表添加品种、单价，输完价格后提示错误，请教问题在哪？

此主题相关图片如下：捕获.png