以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]空格  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=144589)

--  作者:江南小镇
--  发布时间:2019/12/25 9:33:00
--  [求助]空格
老师,标签绑定字段后在标签中每4个字符设一个空格。
--  作者:有点蓝
--  发布时间:2019/12/25 9:51:00
--  
DataFormat事件

If e.Value > "" AndAlso e.Value.length > 4 Then
    Dim s As String = e.Value
    Dim a As Integer = 4
    Do While a < s.length
        s = s.Insert(a," ")
        a += 5
    Loop
    e.Text = s
End If

--  作者:江南小镇
--  发布时间:2019/12/25 12:43:00
--  
谢谢老师