Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
Case "辅助输入"
If dr.IsNull(" 辅助输入") Then '如果列为空
dr("日期") = Nothing
end if
dim f as string = dr("辅助输入")
if f.len = 4
Dim d As String = Date.today.year
Dim s As String= d & dr("辅助输入")
s= Mid(s,1,4) & "-" & Mid(s,5,2) & "-" & Mid(s,7,2)
dr("日期") = Cdate(s)
esle
if f.len = 5 then
Dim d As String = Date.today.year
Dim s As String= d & dr("辅助输入")
s= Mid(s,1,4) & "-" & Mid(s,5,2) & "-" & Mid(s,8,2)
dr("日期") = Cdate(s)
else
message.show（"输入错误！"）
end if
end if
End Select
加好友 
发短信
Post By：2013/5/14 21:17:00 [显示全部帖子]
