![](images/userface/image1.gif)
加好友 发短信
等级:超级版主
帖子:107756
积分:548119
威望:0
精华:9
注册:2015/6/24 9:21:00
|
Post By:2020/3/12 11:12:00 [只看该作者]
就那么几个字符,列长度有必要设置为255么。
Case "月份","选择" Dim y As integer = cint(dr("月份").substring(0,4) ) Dim m As integer = cint(dr("月份").substring(4,2) ) Dim dt1 As New Date(y, m, 1) '获取该月的第一天
|
|