根据甜版主的代码修改的列分解，由于对原代码的数组排序没能理解，致使本例中[审判程序]为“二审”的[当事人]分解错误，请版主指教！谢谢！

此主题相关图片如下：image 2.jpg

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:列分解.table

根据拼音排序的。

If e.DataRow("审判程序") = "二审" Then
   
    Select Case e.DataCol.name   \'同表列分解-二审
        Case "当事人"
            Dim str As String = e.DataRow("当事人")
            Dim ary As String() = str.split(";")
            array.sort(ary)
            If ary.length >= 2 Then
                e.DataRow("上诉人") = ary(1).split(":")(1)
                e.DataRow("被上诉人") = ary(0).split(":")(1)
               
                If ary.length = 3 Then
                    e.DataRow("原审第三人") = ary(2).split(":")(1)
                End If
            End If
           
    End Select
End If

老师，遇到一个特殊情况：

[当事人]的值=\'\'上诉人：AAA\'\'

字符串里面没有分隔符“；”

我想加一种情况，让[上诉人]的列值为“AAA”,该怎样改？

If ary.length = 0 Then
       e.DataRow("上诉人") =           
End If

If e.DataRow("审判程序") = "二审" Then
   
    Select Case e.DataCol.name   \'同表列分解-二审
        Case "当事人"
            Dim str As String = e.DataRow("当事人")
            Dim ary As String() = str.split(";")
            array.sort(ary)

            If ary.length >= 2 Then
                e.DataRow("上诉人") = ary(ary.length-1).split(":")(1)
                e.DataRow("被上诉人") = ary(1).split(":")(1)
               
                If ary.length = 3 Then
                    e.DataRow("原审第三人") = ary(0).split(":")(1)
                End If
                \'Next
            Else
                e.DataRow("上诉人") = ary(ary.length-1).split(":")(1)
            End If
           
    End Select
End If