ValueChanged事件
If e.Sender.Text.Length > 10 Then
Tables("表A").Current("A") = e.Sender.Text
Tables("表A").Current("B") = Nothing
Else
Tables("表A").Current("A") = Nothing
Tables("表A").Current("B") = e.Sender.Text
End
加好友 
发短信
Post By：2016/2/25 11:49:00 [显示全部帖子]
