主题：求助 调用工资标准出错

此主题相关图片如下：qq截图20130409123353.jpg

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

点击浏览该文件:管理项目9.table

读取工资标准表 中的工资标准没有反应。请教原因。

希望更改工资类型  以及更改 领头  时，计件标准与零工标准对应变化。

同时希望高手把代码修改的更好些！！！

Select Case e.DataCol.name
    Case "分厂","工段","日期","性别","合同","工资类型","领头"
        Dim s As String = "计件"
        Dim ss As String = "零工"
        Dim t As String = "0"
        Dim dr As DataRow = e.DataRow
        If dr.IsNull("分厂") = False AndAlso dr.IsNull("工段") = False AndAlso dr.IsNull("性别") = False AndAlso dr.IsNull("合同") = False   AndAlso dr.IsNull("领头") = False  AndAlso dr.IsNull("日期") =False Then
            Dim pr As DataRow = DataTables("工资标准表").Find("分厂 = '" & dr("分厂") & "'and 合同 = '" & dr("合同") & "'  and 性别  = '" & dr("性别") & "'  and 领头 = '" & dr("领头") & "' and 工段 = '" & dr("工段") & "' And 执行日期 <= #" & dr("日期") & "#", "执行日期 Desc")
            If pr IsNot Nothing Then
                If dr("工资类型") = s Then
                    dr("计件标准")  = pr("计件标准")
                    dr("零工标准")  =  t
                End If
                If  dr("工资类型") = ss Then
                    dr("计件标准") = t
                    dr("零工标准")  = pr("零工标准")
                End If
               
            End If
           
        End If
End Select

工资计算表.工资明细表

muhua版主的代码跟XYT 的代码一样，为什么muhua版主的变化工资类型后，计件工资没有=0呢。

明白了，muhua版主的地方搞错了，成了列更改之前了，应该是发生在列内容更改后，

谢谢！通过这次，对判断语句有了更深的了解。还有判断一列的值，不用那么麻烦定义。