主题：[求助]单元格拆分

将“数据表”的[被告出庭]内容，按照被告的不同在“机关负责人出庭”进行拆分，见下图：

 

此主题相关图片如下：截屏图片.jpg

 

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

点击浏览该文件:测试负责人出庭.rar

谢谢！

'''
If e.DataCol.name = "被告出庭" Then
    Dim str As String = e.NewValue
    If str > "" Then
        Dim ary() As String = str.Replace("被告", "@").split("@")
       
        For i As Integer = 0 To ary.length-1
            str = ary(i).trim()
            If str > "" Then
                str = "被告" & str
                Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "(?<=被告).*?(?=。)")   '提取被告单位名称
                Dim s As String = mc(0).value
                Dim dr = DataTables("机关负责人出庭").Find("[被告] = '" & s.split("，")(0) & "'")      '到信息表去找
                If dr Is Nothing Then
                    dr = DataTables("机关负责人出庭").AddNew
                End If
               
                dr("被告") = s.split("，")(0)
                dr("被告出庭拆分") = str
            End If
        Next
    End If
End If

谢谢老师！

我改了一句代码，需要同时找[案号]和[被告]，然后拆分。是哪里错了？

 

'''
If e.DataCol.name = "被告出庭" Then
    Dim str As String = e.NewValue
    If str > "" Then
        Dim ary() As String = str.Replace("被告", "@").split("@")
       
        For i As Integer = 0 To ary.length-1
            str = ary(i).trim()
            If str > "" Then
                str = "被告" & str
                Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "(?<=被告).*?(?=。)")   '提取被告单位名称
                Dim s As String = mc(0).value
                Dim dr = DataTables("机关负责人出庭").Find("[案号] = '" & e.DataRow("案号") & "'"  AndAlso "[被告] = '" & s.split("，")(0) & "'")      '到信息表去找
                If dr Is Nothing Then
                    dr = DataTables("机关负责人出庭").AddNew
                End If
                dr("案号") = e.DataRow("案号")
                dr("被告") = s.split("，")(0)
                dr("被告出庭拆分") = str
               
            End If
        Next
    End If
End If

 

 

 

 

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

 Dim dr = DataTables("机关负责人出庭").Find("[案号] = '" & e.DataRow("案号") & "' And [被告] = '" & s.split("，")(0) & "'")