以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  月份自动大一个月  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=119126)
--  作者：蓝蚂蚁
--  发布时间：2018/5/18 10:53:00
--  月份自动大一个月
想每新增一行，月份自动大一个月
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才对，但代码如何编写呢？
--  作者：有点甜
--  发布时间：2018/5/18 10:57:00
--  
Dim str As String = "201812"
Dim d As Date = new Date(str.substring(0,4), str.substring(4,2), 1)
msgbox(d)
d = d.addmonths(1)
msgbox(format(d, "yyyyMM"))
--  作者：蓝蚂蚁
--  发布时间：2018/5/18 11:21:00
--  
完美解决，谢谢