主题：请教如何设计这个表达式

不行，还是显示，算了不要这个条件我开一列把它减出来吧。

你的程序总是有问题，你还没理解我的意思，分配金额要用同天、生产同一产品，集体生产的人产生的计件工资之和除于这组不重复人数之和，重名的不显示，旷工不在这计算算了，备注注明旷工的，我开另一列把已计算的分配工资扣除算了同。

你最后给我的程序重名的还是显示！

我把正确的答案用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) & "' and 生产形式='" & ary(2) & "'")
    Dim sum As Double = 0
    Dim count As Integer = 0
    Dim ls As new List(Of String)
    For Each dr As DataRow In drs
        Dim fdr As DataRow = DataTables("价格表").find("产品名称 = '" & dr("产品名称") & "'")
        If fdr IsNot Nothing
            dr("单价") = fdr("单价")
        End If
        Dim str As String = dr("姓名")
        If dr("备注") Like "*旷工*" = False Then
            sum += dr("数量") * dr("单价")
            If ls.Contains(str) = False Then
                count += 1
                ls.add(str)
                dr("备注") = dr("备注").replace("重复", Nothing)
            Else
                dr("备注") = "重复" & dr("备注").replace("重复", Nothing)
            End If
        End If
    Next
    For Each dr As DataRow In drs
        If dr("备注") Like "*旷工*" OrElse dr("备注") Like "*重复*" Then
            dr("分配金额") = Nothing
        Else
            dr("分配金额") = format(sum/count, "0.00")
        End If
    Next
Next
For Each dr As DataRow In DataTables("冲压车间工资表").Select("生产形式 = '个人'")
    dr("备注") = dr("备注").replace("重复", Nothing)
    dr("分配金额") = dr("数量") * dr("单价")
Next
Tables("冲压车间工资表").filter = "分配金额 is not null"
Tables("冲压车间工资表").Sort = "日期,产品名称,生产形式,生产工序"

 

你可以把空行删除掉啊。先筛选再汇总啊

 初学者，请先看视频教程

 

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=67187

 

踢除旷工因素，当天计件工资小计应等于分配工资总额，不等正明分配金额有误。