- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 麻烦帮我编一下这计算程序 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=81296)
-- 发布时间：2016/2/23 23:19:00
-- 麻烦帮我编一下这计算程序
这个计算并不难，在excel中并不复杂，K列单价等于安天把生产形式为A+B对应的I列金额小计，除于对应的计件时间小计，然后用这个单价乘以每行对应的计件时间得出分配金额，生产形式为个人的计件金额直接用数量乘H列单价，我由于还没完全看完教程，对语句、函数不熟悉，知道大约的方法，可编出来提示报错，因为急着算工资，麻烦帮我编一下，如果让我自己编，恐要等我把所有教程看完，心领神会才行。
此主题相关图片如下：捕获.png
-- 发布时间：2016/2/23 23:44:00
--
参考以前给你写过的代码，同样是那样计算啊。
不会做，上传foxtable例子。
-- 发布时间：2016/2/23 23:49:00
--
不完全一样，我改过，但不成功，把代码注识了。
-- 发布时间：2016/2/23 23:52:00
--
另外这按钮也出错了，今晚看教程看了一晚，自己动手编程弄了很久不行。
-- 发布时间：2016/2/23 23:55:00
--
代码我都全注识了，因为报错影响我输入。
-- 发布时间：2016/2/24 9:21:00
--
给辛苦费吗？
excel官网专家解答要辛苦吗？我在那混了几年从没人要过辛苦费，你要是要辛苦费，那不用你解了，我想我应该可以自己解决，只是要迟点，现在赶工资，不能全心于此。我在EXCEL函数论坛发过很多次帖没人解答，最后还不是自己解决了，有人帮就是快点，没人帮慢点，这题压根儿不难，我也不是算不出来，我有excel公式可以应付，现在只是改软件快点运算，没人帮我就慢慢来。
-- 发布时间：2016/2/24 9:27:00
--
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
-- 发布时间：2016/2/24 9:50:00
--
谢谢，我就是不会设
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(计件金额)", 所以弄不成功，而且最基本的函数、代码写法我跨过了，没看，昨晚才怱怱忙忙恶补，所以写不好那些代码，非常谢谢。
-- 发布时间：2016/2/24 10:13:00
--
在价格表添加品种、单价，输完价格后提示错误，请教问题在哪？
此主题相关图片如下：捕获.png
-- 发布时间：2016/2/24 10:14:00
--
参考
http://www.foxtable.com/help/topics/1485.htm