主题：求教老师，怎么遍历A表后给B表的多值字段赋值呢...有新问题..

Tables("订单表").Filter = "订单编号 In ('" & Tables("收入表").Current("隶属订单").replace(",","','") & "')"

这个能用了

但奇怪的是为啥照抄这个筛选代码的

For Each r As Row In Tables("订单表")
        If r("订单编号") In  ('" & Tables("外汇收入表").Current("隶属订单").replace(",","','") & "') Then
            r.Checked = True
        End If

Next

这个提示报错应为语句错误？

dim str as string  =Tables("外汇收入表").Current("隶属订单")

这几天试了一些表达式和代码语法，之前混用的太多导致频频出错，现在好一些了。

现在出现衍生的新问题，也是多值字段相关，折腾许久无果，又需要来请教老师了

新问题如下：

Tables("订单表").Filter = "订单编号 In ('" & Tables("收入表").Current("隶属订单").replace(",","','") & "')"

for each r as row in Tables("收入表").rows

r("隶属订单") = r("隶属订单").replace("SD01","SD02")

next

Next

谢谢老师，这样一段代码解决问题，之前想的过于复杂了。