主题：[求助]程序编码问题

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

点击浏览该文件:工资核算02.foxdb

此主题相关图片如下：2.jpg


此主题相关图片如下：1.jpg

请教，在工资计算窗口中分别绑定“工资计算表.工资明细表”以及工资明细表。

实现的问题：在窗口下边的明细表中，如果工资类型为 计件，那么根据上边的分厂工段自动匹配工资标准表中的计件标准，零工标准为空。

                如果工资类型为零工根据上边的分厂工段自动匹配工资标准表中的零工标准，计件标准为空。

 

水平太浅，自己实在写不出编码。

顶，有人会吗。

工资明细表的DataColChanged事件：

 

Select Case e.DataCol.name
    Case "分厂","工段","日期" ,"工资类型"
        Dim dr As DataRow = e.DataRow
        If dr.IsNull("分厂") = False AndAlso dr.IsNull("工段") = False AndAlso dr.IsNull("日期") =False Then
            Dim pr As DataRow = DataTables("工资标准").Find("分厂 = '" & dr("分厂") & "' and 工段  = '" & dr("工段") & "' And 执行日期 <= #" & dr("日期") & "#", "执行日期 Desc")
            If pr IsNot Nothing Then
                If dr("工资类型")  =  "计件" Then
                    dr("计件标准")  = pr("计件标准")
                ElseIf dr("工资类型")  =  "零工" Then
                    dr("零工标准")  = pr("零工标准")
                End If
            End If
        End If
End Select