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

窗口中的textbox控件绑定了表中的“职工编码”列，

此主题相关图片如下：qq截图20150508085743.jpg

职工编码内容一般为0---30位左右的字符，现在我想实现对绑定字符进行格式输出：

比如1234567891587输出为：1234 5678 9158 7的样式，我在textbox控件的dataformt事件中写了如下代码，可是在预览的时候出错提示：长度不能小于 0。

参数名: length，求解！

此主题相关图片如下：qq截图20150508090048.jpg

代码：

Dim d As Integer = e.Value.length

d =d / 4

Select Case d

Case 0 To 1

e.Value = e.Value.Substring(1,d)

Case 1 To 2

e.Value = e.Value.Substring(1,4) & " " & e.Value.Substring(5,d-4)

Case 2 To 3

e.Value = e.Value.Substring(1,4) & " " & e.Value.Substring(5,4) & " " & e.Value.Substring(9,d-8)

Case 4 To 5

e.Value = e.Value.Substring(1,4) & " " & e.Value.Substring(5,4) & " " & e.Value.Substring(9,4) & " " & e.Value.Substring(13,4) & " " & e.Value.Substring(17,d-16)

Case 5 To 6

e.Value = e.Value.Substring(1,4) & " " & e.Value.Substring(5,4) & " " & e.Value.Substring(9,4) & " " & e.Value.Substring(13,4) & " " & e.Value.Substring(17,4) & " " & e.Value.Substring(21,d-20)

Case 6 To 7

e.Value = e.Value.Substring(1,4) & " " & e.Value.Substring(5,4) & " " & e.Value.Substring(9,4) & " " & e.Value.Substring(13,4) & " " & e.Value.Substring(17,4) & " " & e.Value.Substring(21,4) & " " & e.Value.Substring(25,d-24)

End Select

版主，求解释呀。。。。

谢谢老师。。。。。。