If e.DataCol.name = "日期" Then If e.newvalue = Nothing Then e.DataRow("日期二")= Nothing Else If e.NewValue.length = 8 Then Dim d As Date = new Date(e.NewValue.Substring(0,4), e.newvalue.substring(4,2), e.newvalue.substring(6,2)) e.DataRow("日期二")= d End If End If
加好友 
发短信
Post By：2017/8/30 16:46:00 [显示全部帖子]
