为什么没人回复？请各位版主指导一下呗下面是根据有点蓝版主的指导对代码的改进，用循环语句，把代码改成下面的样子，能够自动删除多行了
For Each dt1 As DataTable In DataTables
Dim dr1 As DataRow = DataTables("表一").find(" A列 Like '%,张三,%' ")
If dr1 IsNot Nothing Then
dr1("A列") = (dr1("A列") & ",").replace(",张三,",",").trim(",")
End If
Next
但仍然有一个问题，无法使用表达式。我写的使用表达式的代码是：
For Each dt1 As DataTable In DataTables
Dim z As String = Tables("表二").Current("甲列")
Dim dr1 As DataRow = DataTables("表一").find(" A列 Like '%,“& z &”,%' ")
If dr1 IsNot Nothing Then
dr1("A列") = (dr1("A列") & ",").replace(",“& z &”,",",").trim(",")
End If
Next
请问，replace的属性是不是不支持使用表达式？怎么在这段代码中用表达式表达表二某行甲列的值？
加好友 
发短信
Post By：2019/10/16 12:12:00 [显示全部帖子]
此主题相关图片如下：表一.jpg
