[求助]对绑定列进行格式输出提示错误，求解！ - 专家坐堂 - 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

...

[此贴子已经被作者于2015/5/8 9:09:12编辑过]

1、subString是从0开始的，不是从1开始的；

2、调试代码参考 http://www.foxtable.com/help/topics/1485.htm

版主，求解释呀。。。。

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编辑过]

谢谢老师。。。。。。

又发现一个新的问题，如果我用鼠标点击模糊搜索文件框进行搜索时就会弹出错误的提示：

.NET Framework 版本：2.0.50727.3655

Foxtable 版本：2014.9.23.1

错误所在事件：窗口,主窗口,TextBox8,DataFormat

详细错误信息：

未设置对象变量或 With 块变量。

此主题相关图片如下：

以下是引用大红袍在2015/5/8 9:09:00的发言：