If e.DataCol.name = "第一列" Then If e.NewValue = Nothing Then e.DataRow("第二列") = Nothing Else Dim s As String = e.NewValue.substring(e.newValue.length-1, 1) If val(s) <= 7 Then s = e.NewValue.substring(0, e.newValue.length-1) e.DataRow("第二列") = s & 8 Else e.DataRow("第二列") = e.NewValue End If End If End If
加好友 
发短信
Post By：2016/1/24 16:17:00 [显示全部帖子]
