- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]批量替换当前行指定字符串 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=91171)
-- 发布时间：2016/10/1 9:01:00
-- [求助]批量替换当前行指定字符串
此主题相关图片如下：image 4.jpg
批量替换当前行指定字符串“11”、“22”、“BB”......为空，也就是删除特定字符串。
-- 发布时间：2016/10/1 9:05:00
--
Dim r as row = Tables("表A").Current
for each dc as Datacol in DataTables("表A").Datacols
if dc.isString then
r(dc.name) = r(dc.name).Replace("特定字符串","")
end if
next
-- 发布时间：2016/10/1 9:26:00
--
“老爸”，我把代码改成当前表，当前行。横线上的代码用什么？
Dim r As Row = CurrentTable.Current
For Each dc As DataCol In .Datacols
If dc.isString Then
r(dc.name) = r(dc.name).Replace("11","")
r(dc.name) = r(dc.name).Replace("22","")
r(dc.name) = r(dc.name).Replace("BB","")
End If
Next
-- 发布时间：2016/10/1 9:28:00
--
For Each c As Col In CurrentTable.cols
或
For Each dc As DataCol In CurrentTable.DataTable.Datacols