以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]甜版，帮看下代码for each 替换不成功  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=129341)
--  作者：爱好所有
--  发布时间：2018/12/26 16:43:00
--  [求助]甜版，帮看下代码for each 替换不成功
dim tt as string() = {“有”，”他们“，”其他“}
for each ss as datarow in datatables("打印").datarows
dim aa as string = ss("名称")
for each bb as string in tt
ss("名称") = aa.replace("" & bb & "","")
next
next
如果ss("名称") = aa.replace("" & bb & "","")这里bb改成真正的字符就能正常，用变量bb就不行，是代码那里不对吗？
[此贴子已经被作者于2018/12/26 16:45:04编辑过]
--  作者：爱好所有
--  发布时间：2018/12/26 17:47:00
--  
甜老师，我才找到一个贴子，可以用ss("名称") = aa.replace("有","").replace("他们","")这样替换，但只能用两个，多了就不行了，我的替换项比较多怎么操作？
--  作者：有点甜
--  发布时间：2018/12/26 18:01:00
--  

 

[此贴子已经被作者于2018/12/26 18:01:25编辑过]
--  作者：有点甜
--  发布时间：2018/12/26 18:02:00
--  
Dim tt As String() = {"有","他们","其他"}
For Each ss As DataRow In DataTables("打印").datarows
    Dim aa As String = ss("名称")
    For Each bb As String In tt
        aa = aa.replace("" & bb & "","")
    Next
    ss("名称") = aa
Next