[求助]计算年功工资的代码不对 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

这样？

Dim dr As DataRow = DataTables("年功表").Find("累计工龄 <= " & bm & "", "累计工龄 desc")

如果报错。上传实例测试。

Select Case e.DataCol.name
    Case "连续工龄", "计发标准", "责任工资"          '
        If e.DataRow.IsNull("连续工龄") Then        '连续工龄是否为空
            e.DataRow("年功金额") = Nothing         '如果为空,则清除年功金额
        Else
            Dim bm As String = e.DataRow("连续工龄") '声明变量为"连续工龄"
            Output.Show(Round2(bm, 0))                '将"连续工龄" 数值四舍五入为整数
            Dim dr As DataRow = DataTables("年功工资标准").Find("累计工龄 <= " & bm & "", "累计工龄 desc")
            If dr IsNot Nothing Then
                If e.DataRow.IsNull("责任工资") = False Then        '责任工资是否为空("Is"是/"IsNull"不是)
                    e.DataRow("年功金额") = Nothing         '不为空,则清除(或不写入)年功金额
                Else
                    e.DataRow("年功金额") = dr("计发标准") '为空,写入
                End If
            End If
        End If
End Select

那你就改成

Select Case e.DataCol.name
    Case "连续工龄", "计发标准", "责任工资"          '
        If e.DataRow.IsNull("连续工龄") Then        '连续工龄是否为空
            e.DataRow("年功金额") = Nothing         '如果为空,则清除年功金额
        Else
            Dim bm As String = e.DataRow("连续工龄") '声明变量为"连续工龄"
            Output.Show(Round2(bm, 0))                '将"连续工龄" 数值四舍五入为整数
            Dim dr As DataRow = DataTables("年功工资标准").Find("累计工龄 <= " & bm & "", "累计工龄 desc")
            If dr IsNot Nothing Then
                If e.DataRow("责任工资") <> 0 Then        '责任工资是否为空("Is"是/"IsNull"不是)
                    e.DataRow("年功金额") = Nothing         '不为空,则清除(或不写入)年功金额
                Else
                    e.DataRow("年功金额") = dr("计发标准") '为空,写入
                End If
            End If
        End If
End Select

以下是引用hanzhang98在2019/4/4 11:41:00的发言：
谢谢甜老师。这下问题解决了。老师能解释下原因吗？释疑解惑。谢谢！

你想判断的是【值】是不是等于0，而不是是不是空。

主题：[求助]计算年功工资的代码不对