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

    密码：111222333

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

把窗口3的DropDownOpened事件代码去掉

谢谢，行了。

    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"

计算窗口的按钮里的程序，冲压工资表中同天、生产形式为同一集体形式、生产同一产品的分配金额按计件金额之和除于不重复人数平均分配，姓名重复的不重复显示分配金额，生产形式为个人的安数量乘单价直接计算。

你没有给数据设置 产品名称 啊，自然不计算啊。

 

要不你就在计算条件那里去掉产品名称的区分。

产品名称作为分组条件不能去除的，能否加个条件或产品名称为空值。

 

空值的算一种产品这样计算？