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

Dim dt1 As DataTable = DataTables("数据表")
Dim dt2 As DataTable = DataTables("替换编辑")
For Each dr As DataRow In dt2.Select("")
    For Each fdr As DataRow In dt1.Select("编号 = '" & dr("编号") & "'")
        For Each dc As DataCol In dt1.DataCols
            If dc.IsString Then
                fdr(dc.name) = System.Text.RegularExpressions.Regex.replace(fdr(dc.name), dr("替换前内容"), dr("替换后内容"))
            End If
        Next
    Next
Next

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

点击浏览该文件:数据 (1).table

 颜色的标记，是用【标识】列控制的。你需要把标志列的那个字符改成和你当前行的数据相同的字符即可。

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

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

点击浏览该文件:标记替换.table

 

你要先改成 AA、SS 之类的字符，再替换一次，才行。