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

老师们好！老师们帮助指导的代码没有问题。但问题是“问题原因是找出来了，但实在是处理不了”。现上传实例请老师们帮助。

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

我又试了试，与数值格式好像没有关系。难道是从“员工表”复制而来的“数值”不是数值，或者是代码不认为它是数值，因此以“空值”来对待？请老师们帮助。谢谢

老师好！用您12楼给的代码也还是不行，就是复制过来的“数值”的问题，我又用现上传的实例2试了试，在实例2中又增加了一个“列一”，这个"列一”的数值是单精度小数手工输入。将"列一"手工输入的数值复制到“责任工资”列，代码运行计算正确，如果再将“考核奖金”列（从"员工表"复制来）的数值复制到“责任工资”列，代码就又不能计算了。是不是代码不认为它是数值，因此以"空值"对待。还请老师费心。谢谢。

我测试没问题，可能是你的foxtable安装的有问题。

老师好！我用下面代码测试了下，就是只要是复制过来的，全显示为“0”

老师好。重新下载安装Foxtable也不行。

那你就改成

 

谢谢甜老师。这下问题解决了。老师能解释下原因吗？释疑解惑。谢谢！

 

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