- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]空格 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=120479)
-- 发布时间：2018/6/16 21:14:00
-- [求助]空格
老师，绑定了的文本框不显示字段中的空格。
此主题相关图片如下：图像 060.png
-- 发布时间：2018/6/17 15:32:00
--
贴出你写的代码。
在dataformat事件，也要写加上空格的代码。
-- 发布时间：2018/6/17 23:29:00
--
老师 好
If e.Col.Name = "基本信息_身份证号码" Then
Dim n1,n2,n3 As Integer
Dim s1,s2 As String
s1=e.Row("基本信息_身份证号码")
If s1 >"" Then
s1=s1.Replace(" ","")
n3 = 4 \'4个数1空
n2 =s1.Length Mod n3
For n1 =n3 To s1.length Step n3
s2+=s1.Substring(n1-n3,n3) & " "
Next
e.Text = (s2 & Right(s1,n2)).Trim()
End If
End If
-- 发布时间：2018/6/17 23:55:00
--
dataformat事件
Dim n1,n2,n3 As Integer
Dim s1,s2 As String
s1=e.value
If s1 >"" Then
s1=s1.Replace(" ","")
n3 = 4 \'4个数1空
n2 =s1.Length Mod n3
For n1 =n3 To s1.length Step n3
s2+=s1.Substring(n1-n3,n3) & " "
Next
e.Text = (s2 & Right(s1,n2)).Trim()
End If
-- 发布时间：2018/6/18 10:27:00
--
老师谢谢你，假期还在为我们解决问题。