以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]窗体录入判定问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=81347)

--  作者:yys983
--  发布时间:2016/2/25 11:31:00
--  [求助]窗体录入判定问题
各位大神求助,
我现在想实现一个窗体录入自动判定,在窗体只有一个录入口,不过用代码对录入数据进行判定,例如,字符串超过10位,则录入A列,否则则录入B列,求代码如何编写,跪谢。

--  作者:大红袍
--  发布时间:2016/2/25 11:49:00
--  

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


--  作者:yys983
--  发布时间:2016/2/25 12:31:00
--  
非常感谢,完美解决