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

    我已经实现我要的效果了，你没认真看我的回贴，跟你说了我输入数没空行，空行是汇总后产生的，算了跟你说话费劲。

我不是上传了文件吗？你可以打开试试啊，密码是：111222333，我也发截图给你看了，问题是存在的。

     你有没有看137楼到139楼的截图？我是对冲压车间工资表直接进行按日小计、最后总计统计，确认之后前面产生空行，请问我哪操作错了？

    筛选代码加在哪？我是直接利用表头上的汇总功能，你这代码怎么加？

    不好意思，我这段话确定有问题，应该是：

    还有你开始不是提议我做一个按钮，一个本文，做一个查询窗口独立显示员工当月明细工资吗？我就一直往这方面想，看了合并、汇总、合计、统计、分组、0056-简单后台数据统计、0057-专业后台分组统计、0058-专业后台交叉统计、0112-Select语句入门之一、0113-Select语句入门之二、0114-Select语句使用场合、0114-SQLCommd的使用、SQL语句四个视频，同时看使用指南，知道要做这效果需做一个SQLTable或SQLQuery窗口,按输入姓名、起始时间、结束时间条件加载员工工资，最后合计，但用SQLTable或SQLQuery加载数据，代表式是无法加载进来的，要在程序直接引用数据源单价、数量计算，我的分配金额是通过程序计算出来的，比较复杂，加载时重新计算觉得麻烦，才请教你。最后我没用这方法，改用Normal梆定冲压车间工资表，选我要的显示列，把全部人员工资加载进窗体，通过筛选、汇总实现独立员工明细工资。实是实现我要的效果了，但我还是想按查询条件加载方法显示员工明细工资，应怎么做？

    另一种全员安日统计工资一览表我是通过交叉统计实现的，昨晚漏看这视频，就纠结在此了，中午没睡午觉，看了这视频，恍然大悟，太简单了！不过它是汇总表，不能再在后面添加项目，做成143楼的表样式，因为除了安计件分配出来的应发工资还有工龄奖、岗位补贴、安产量提成的奖金、节假日补贴，另要扣减的社保医保、水电扣款、个人所得税、其他杂项，这表可保存，编辑，请问如何实现？

    密码：111222333

    冲压车间工资表中的产品名称目录树打开后，我如果不选里面的项目，点表中的其它地方，目录树不消失，我要点其他地方，目录树会消失的效果。

谢谢，行了。

    5月20日，即表中的3520-3523行计算又出现问题了，这里同天同组的分配金额只分配了有计件金额的员工，没计件金额的没分配了，应同天同组生产同一产品的安不重复人数分配，名字重复的不显示金额。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:冲压车间工资表.table

密码是：111222333

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("产品名称") & "' and 工序 = '" & dr("生产工序") & "'")
        If fdr IsNot Nothing
            dr("单价") = fdr("单价")
        End If
        Dim str As String = dr("姓名")
        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
    Next
    For Each dr As DataRow In drs
        If 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 = ""
Tables("冲压车间工资表").Sort = "日期,产品名称,生产形式"
Tables("冲压车间工资表").Filter = "日期 is null"