在输入框的事件中加入:OnBlur="vbs:AutoGet()"然后在网页上加上客户端脚本:
<Script Language=vbs>
Sub AutoGet()
If Len(你的输入框.Value)<=2 Then
你的输入框.Value = Year(Now()) & "-" & Month(Now()) &"-"& 你的输入框.Value
Else If Len(你的输入框.Value)=4 Or Len(你的输入框.Value)=3 Then
你的输入框.Value = Year(Now()) & "-" & Left(你的输入框.Value,2) &"-"& Right(你的输入框.Value,2)
Else
你的输入框.Value = Left(你的输入框.Value,2) & "-" & substring(你的输入框.Value,3,2) &"-"& Right(你的输入框.Value,2)
End If
End Sub
</Script>
<Script Language=vbs>
Sub AutoGet()
If Len(你的输入框.Value)<=2 Then
你的输入框.Value = Year(Now()) & "-" & Month(Now()) &"-"& 你的输入框.Value
Else If Len(你的输入框.Value)=4 Or Len(你的输入框.Value)=3 Then
你的输入框.Value = Year(Now()) & "-" & Left(你的输入框.Value,2) &"-"& Right(你的输入框.Value,2)
Else
你的输入框.Value = Left(你的输入框.Value,2) & "-" & substring(你的输入框.Value,3,2) &"-"& Right(你的输入框.Value,2)
End If
End Sub
</Script>
有两个问题补充一下.
1. WinForm
2. DataGrid.
自己根据客户的输入修改currentcell的值
还有一点不明白输入2003-03-22要鼠标吗?:)
所以要考虑的东西就是在按下enter键的时候把他适当的处理为tab键