- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]求大师写段代码：根据另一表格内容批量替换 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=95391)
-- 发布时间：2017/1/18 12:49:00
-- [求助]求大师写段代码：根据另一表格内容批量替换
此主题相关图片如下：image 1.jpg
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:数据.table |
-- 发布时间：2017/1/18 14:36:00
--
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
-- 发布时间：2017/1/18 16:13:00
--
谢谢大师！很好用。
-- 发布时间：2017/1/18 16:39:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:数据 (1).table |
-- 发布时间：2017/1/18 18:18:00
--
谢谢大师！很好用，但有些代码还没看懂，需要继续研究。
-- 发布时间：2017/1/18 18:29:00
--
颜色的标记，是用【标识】列控制的。你需要把标志列的那个字符改成和你当前行的数据相同的字符即可。
-- 发布时间：2017/1/18 18:39:00
--
-- 发布时间：2017/1/18 19:34:00
--
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
-- 发布时间：2017/1/18 19:36:00
--
老师太高了！
-- 发布时间：2017/1/18 19:53:00
--
谢谢！感觉问题都解决了。