主题：我想想，你们也帮我想想，复杂的数学逻辑题

 分别取出各个组的人员，看组的人数是多少，然后得出计件金额。之后的和以前的一样写代码。

汗，你参考之前的代码啊，就是判断一下分组的人数而已啊。

 

不会做，不想学的，请上传具体例子

按比例分配的代码

 

Dim dt As DataTable = DataTables("打砂车间工资表")
For Each ary() As String In dt.GetValues("日期|生产形式", "日期 is not null and 生产形式 = '安比例分配'")
    Dim drs_ds As List(Of DataRow) = dt.Select("日期=#" & ary(0) & "# and 生产形式='" & ary(1) & "' and (规格 <> '机动' or 规格 is null)")
    Dim drs_jd As List(Of DataRow) = dt.Select("日期=#" & ary(0) & "# and 生产形式='" & ary(1) & "' and 规格 = '机动'")
    Dim bl As Double = 0
    If drs_ds.count + drs_jd.count < 8 Then
        bl = 0.77
    Else
        bl = 0.74
    End If
    Dim smoney As Double = dt.compute("sum(金额)", "日期=#" & ary(0) & "# and 生产形式='" & ary(1) & "'")
    Dim stime As Double = dt.compute("sum(计件工时)", "日期=#" & ary(0) & "# and 生产形式='" & ary(1) & "' and (规格 <> '机动' or 规格 is null)")
    Dim dj As Double = smoney * bl / stime
    For Each dr As DataRow In drs_ds
        dr("分配后金额") = dj * dr("计件工时")
    Next
    stime = dt.compute("sum(计件工时)", "日期=#" & ary(0) & "# and 生产形式='" & ary(1) & "' and 规格 = '机动'")
    dj = smoney * (1-bl) / stime
    For Each dr As DataRow In drs_jd
        dr("分配后金额") = dj * dr("计件工时")
    Next
Next

datacolchanged事件

 

Select Case e.DataCol.name
    Case "规格", "备注"
        Dim fdr As DataRow = DataTables("价目表").find("规格 = '" & e.DataRow("规格") & "'")
        If fdr IsNot Nothing
            If e.DataRow("备注") Like "*喷涂返工*" Then
                e.DataRow("单价") = fdr("单价") * 3
            ElseIf e.DataRow("备注") Like "*喷涂返工*" Then
                e.DataRow("单价") = fdr("单价") * 2
            Else
                e.DataRow("单价") = fdr("单价")
            End If
        End If
End Select

 1、看懂代码，看不懂说明哪里看不懂，然后改成自己所需要的。

 

 2、你表述可能有问题，别人看你的文字理解也可能有差别，自己弄最省心。

 哪里不正确啊？举例说明啊

什么不正确啊？怎么不正确啊。

 无语，看16楼

问题请说清楚明白。

 

说明什么具体数据，计算后怎么不正确了。

看20楼。