主题：[求助]求大师写段代码：根据另一表格内容批量替换

If e.Col.name <> "标记" Then
    If e.Row.IsNull("标记") = False Then
        Dim ary() As String = e.Row("标记").split("|")
        Dim i As Integer = 0
        For Each dc As DataCol In e.Table.DataTable.DataCols
            If dc.name = e.Col.name Then
                Exit For
            End If
            i += 1
        Next
        If ary(i) <> e.text Then
            e.Table.DataTable.AddUserStyle("样式1", color.red, Color.black)
            e.style = "样式1"
        End If
    End If
End If

----------------------

If e.DataCol.name <> "标记" Then
    If vars("替换") = False Then
        Dim str As String = ""
        Dim ary() As String = e.DataRow("标记").split("|")
        If ary.length >= e.DataTable.DataCols.count Then
            Dim i As Integer = 0
            For Each dc As DataCol In e.DataTable.DataCols
                If dc.name <> "标记" Then
                    If dc.name = e.DataCol.name Then
                        str &= e.NewValue & "|"
                    Else
                        str &= ary(i) & "|"
                    End If
                    i += 1
                End If
            Next
        Else
            For Each dc As DataCol In e.DataTable.DataCols
                If dc.name <> "标记" Then
                    str &= e.DataRow(dc.name) & "|"
                End If
            Next
        End If
        e.DataRow("标记") = str.Trim("|")
       
    End If
End If