以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何自动填充单位  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=94902)
--  作者：博学
--  发布时间：2017/1/4 22:24:00
--  如何自动填充单位
我想在输入字符的时候自动将单位补在后面，比如我在身高这一列中输入170，自动填补为170cm
--  作者：有点蓝
--  发布时间：2017/1/5 8:43:00
--  
参考：http://www.foxtable.com/webhelp/scr/0624.htm

If e.DataCol.Name = "身高" Then 
    If e.NewValue IsNot Nothing AndAlso e.NewValue.Contains("cm") = False Then 
        e.NewValue = e.NewValue & "cm"
    End If
End If
--  作者：有点色
--  发布时间：2017/1/5 10:00:00
--  

 数字的话，尽量不要那样处理，不然后期不利于统计。

 

 drawcell事件，直接写代码

 

If e.Col.Name = "身高" Then

    e.Text = e.Text & "cm"

End If