- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]对绑定列进行格式输出提示错误，求解！ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=68014)
-- 发布时间：2015/5/8 9:04:00
-- [求助]对绑定列进行格式输出提示错误，求解！
窗口中的textbox控件绑定了表中的“职工编码”列，
此主题相关图片如下：qq截图20150508085743.jpg
职工编码内容一般为0---30位左右的字符，现在我想实现对绑定字符进行格式输出：
此主题相关图片如下：qq截图20150508090048.jpg
比如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:07:00
--
...
[此贴子已经被作者于2015/5/8 9:09:12编辑过]
-- 发布时间：2015/5/8 9:09:00
--
1、subString是从0开始的，不是从1开始的；
2、调试代码参考 http://www.foxtable.com/help/topics/1485.htm
-- 发布时间：2015/5/8 9:57:00
--
版主，求解释呀。。。。
-- 发布时间：2015/5/8 10:00:00
--
看3楼
-- 发布时间：2015/5/8 10:03:00
--
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编辑过]
-- 发布时间：2015/5/8 10:24:00
--
谢谢老师。。。。。。
-- 发布时间：2015/5/8 11:41:00
--
又发现一个新的问题，如果我用鼠标点击模糊搜索文件框进行搜索时就会弹出错误的提示：
.NET Framework 版本：2.0.50727.3655
Foxtable 版本：2014.9.23.1
错误所在事件：窗口,主窗口,TextBox8,DataFormat
详细错误信息：
未设置对象变量或 With 块变量。
此主题相关图片如下：
-- 发布时间：2015/5/8 11:55:00
--
以下是引用大红袍在2015/5/8 9:09:00的发言：
1、subString是从0开始的，不是从1开始的；
2、调试代码参考 http://www.foxtable.com/help/topics/1485.htm
又发现一个新的问题，如果我用鼠标点击模糊搜索文件框进行搜索时就会弹出错误的提示：
.NET Framework 版本：2.0.50727.3655
Foxtable 版本：2014.9.23.1
错误所在事件：窗口,主窗口,TextBox8,DataFormat
详细错误信息：
未设置对象变量或 With 块变量。
-- 发布时间：2015/5/8 13:01:00
--
例子上传上来测试。