主题：求助：字符串中追加分隔符的执行代码

以下是两组数据，第一列是原数据，第二列是我想希望达到的数据，就是做一个按钮转换功能，在原数据组中插入了分隔符，求代码，谢谢！

呃，弄成数值列，设置单元格格式

http://www.foxtable.com/help/topics/1659.htm

如果用字符，直接格式化成千分位的也可以

http://www.foxtable.com/help/topics/0361.htm

Select Case e.DataCol.Name
    Case "ID"
        If  e.DataRow("ID").length = 4 Then
            e.DataRow("TREE") = e.DataRow("ID").substring(0,4)
        ElseIf e.DataRow("ID").length = 7 Then
            e.DataRow("TREE") = e.DataRow("ID").substring(0,4) & "," &  e.DataRow("ID").substring(5,3)
        ElseIf e.DataRow("ID").length = 10 Then
            e.DataRow("TREE") = e.DataRow("ID").substring(0,4) & "," &  e.DataRow("ID").substring(5,3) & "," & e.DataRow("ID").substring(8,3)
        ElseIf e.DataRow("ID").length = 13 Then
            e.DataRow("TREE") = e.DataRow("ID").substring(0,4) & "," &  e.DataRow("ID").substring(5,3) & "," & e.DataRow("ID").substring(8,3) & "," & e.DataRow("ID").substring(10,3)
        End If
End Select

13位的设置是正确的，其他都是错误的，其他的位置提示：

调用的目标发生了异常。
索引和长度必须引用该字符串内的位置。
参数名: length

看3楼

e.DataRow("TREE") = Format(val(e.DataRow("ID")),"#,###")

我是要保持前四位不变，就是说格式分段，一定是：####，###，###，###，是4333333一直下去

说明白你的逻辑

Dim str As String = "1000000000003"
Dim ns As String = ""
ns = str.SubString(0, 4)
For i As Integer = 4 To str.length - 1
    If (i - 4) Mod 3 = 0 Then
        ns &= "," & str(i)
    Else
        ns &= str(i)
    End If
Next

msgbox(ns)