以文本方式查看主题

-  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
--  
老师谢谢你,假期还在为我们解决问题。