以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何截取整数型数据的最后两位数字  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=125856)
--  作者：edisontsui
--  发布时间：2018/10/8 18:32:00
--  如何截取整数型数据的最后两位数字
我有一列整数型的数据，比如201809，我如何用代码来截取最后两位数据（即09）出来？谢谢。
--  作者：有点蓝
--  发布时间：2018/10/8 20:06:00
--  
Dim n As Integer = 201809
Dim s As String = Cstr(n)
msgbox(s.SubString(s.Length - 2))
--  作者：edisontsui
--  发布时间：2019/2/25 13:45:00
--  
If e.DataCol.Name = "年月" Then 
    Dim n As Integer = e.newvalue("年月") 
    Dim s As String = Cstr(n)
    If s.SubString(s.Length - 2) = "12"   
        e.DataRow("上月累计应税工资") = 0
        e.DataRow("上月累计应税") = 0
    End If
End If

上面的代码出现如下警告：

.NET Framework 版本：2.0.50727.8793
Foxtable 版本：2017.3.18.1
错误所在事件：表，工资计算，DataColChanged
详细错误信息：
调用的目标发生了异常。
未找到类型“Integer”的默认成员。

请教如何处理？
--  作者：有点甜
--  发布时间：2019/2/25 14:48:00
--  

改成

 

If e.DataCol.Name = "年月" Then 
    Dim n As Integer = e.newvalue
    Dim s As String = Cstr(n)
    If s.SubString(s.Length - 2) = "12"   
        e.DataRow("上月累计应税工资") = 0
        e.DataRow("上月累计应税") = 0
    End If
End If