主题：月份自动大一个月

Dim t As Table = Tables("试用")

t.position = t.rows.count-1

Dim s1 As String=Tables("试用").current("月份")

Dim s2 As Integer =val(s1)+1

Dim s3 As String =CStr(s2)

Dim dr201 As DataRow = DataTables("试用").AddNew()

dr201("月份")=s3

如第一行的月份是201801，根据上面的代码增致201812，再增加就是201813了，应该是201901才对，但代码如何编写呢？