以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  有点甜 老师 无谢谢  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=128931)
--  作者：xianxin2010
--  发布时间：2018/12/18 15:36:00
--  有点甜 老师 无谢谢
无谢谢
[此贴子已经被作者于2021/11/4 8:35:20编辑过]
--  作者：有点甜
--  发布时间：2018/12/18 16:47:00
--  

datacolchanging事件

 

If e.NewValue <> Nothing Then
    Dim ary = e.NewValue.split(";")
    If ary.length = 2 Then
        e.newvalue = ary(1)
    End If
End If