主题：[求助]然后清除本次选中的2表的“过磅”列的√，并在本次选中的2表中的“已过磅”列打勾。

参考代码

Dim t1 As Table = Tables("窗口1_客户表")
Dim t2 As Table = Tables("窗口1_过磅表")
For Each r1 As Row In t1.Rows
    For Each r2 As Row In t2.Rows
        If r1("客户") = r2("客户") Then
            r2("已过磅") = r1("已过磅")
        End If
    Next
Next