主题：[求助]返回字符串长度出错

    Dim xmmcjh As New List(Of String()) '项目名称_集合

    xmmcjh = DataTables("合同or费用台账").GetValues("项目代码|子项目代码") '列名用符号|分割_集合

    For Each xmmcsz As String() In xmmcjh '项目名称_数组

        Dim xmmc As String

        xmmc = String.join("|",xmmcsz)

        msgbox(xmmc)

        Dim xmdm As String '项目代码

        Dim zxmdm As String '子项目代码

        Dim wzz As Integer '| 出现位置长度

        Dim l As Integer '

        wzz = xmmc.IndexOf("|")

        msgbox(wzz)

        l = xmmc.Length

        xmdm = xmmc.SubString(0,wzz)

        zxmdm = xmmc.SubString(wzz + 1,l)

        msgbox(xmdm)

        msgbox(zxmdm)