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

我说的是39楼的问题。问题一个一个解决。

打砂车间的表事件我加了条件：

    我已经改过来了，你可以用计算机算一下验证，当天少于8个不重复人，打砂员工的分配工资是计件金额乘于77%，机动的是计件金额的23%除于机动人员计件工时之和乘该机动员工计件工时，否则打砂员工的分配工资是计件工资的74%，机动的是计件金额的26%除于机动人员计件工时之和乘该机动员工计件工时。

     39楼的问题不是告诉你了吗，是按比例分配金额全错，我在53楼告诉你已经改过来了。

    我的Table文件目录树更新，及安条件引用单价还是有问题，麻烦帮我看一下，文件上传在48楼。

 

35楼的代码，一点都计算没有错。

 

1、

 

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("单价") * 5
            ElseIf e.DataRow("备注") Like "*喷涂返工*" Then
                e.DataRow("单价") = fdr("单价") * 3
            ElseIf e.DataRow("备注") Like "*客户返工*" OrElse  e.DataRow("备注") Like "*双面打砂*" Then
                e.DataRow("单价") = fdr("单价") * 2
            Else
                e.DataRow("单价") = fdr("单价")
            End If
        End If
End Select

 

2、

 

Dim tb As New DropTreeBuilder
tb.SourceTable = DataTables("价目表") '指定目录树表
tb.TreeCols = "规格" '指定用于生成目录树的列
tb.SourceCols = "规格" '指定数据来源列
tb.ReceiveCols = "规格" '指定数据接收列
Tables("打砂车间工资表").Cols("规格").DropTree = tb.Build()

      弹出提示。
此主题相关图片如下：捕获111.png

看57楼。

    就是安57楼的代码运行弹出上面的提示。