[求助]对绑定列进行格式输出提示错误，求解！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim d As Integer = e.Value.length
Select Case d / 4
    Case 0 To 1
        e.Value = e.Value.Substring(0,d)
    Case 1 To 2
        e.Value = e.Value.Substring(0,4) & " " & e.Value.Substring(4,d-4)
    Case 2 To 3
        e.Value = e.Value.Substring(0,4) & " " & e.Value.Substring(4,4) & " " & e.Value.Substring(8,d-8)
    Case 4 To 5
        e.Value = e.Value.Substring(0,4) & " " & e.Value.Substring(4,4) & " " & e.Value.Substring(8,4) & " " & e.Value.Substring(12,4) & " " & e.Value.Substring(16,d-16)
    Case 5 To 6
        e.Value = e.Value.Substring(0,4) & " " & e.Value.Substring(4,4) & " " & e.Value.Substring(8,4) & " " & e.Value.Substring(12,4) & " " & e.Value.Substring(16,4) & " " & e.Value.Substring(20,d-20)
    Case 6 To 7
        e.Value = e.Value.Substring(0,4) & " " & e.Value.Substring(4,4) & " " & e.Value.Substring(8,4) & " " & e.Value.Substring(12,4) & " " & e.Value.Substring(16,4) & " " & e.Value.Substring(20,4) & " " & e.Value.Substring(24,d-24)
End Select

[此贴子已经被作者于2015/5/8 10:03:05编辑过]

主题：[求助]对绑定列进行格式输出提示错误，求解！