如下代码
For Each r As Row In Tables("表B").Rows Dim nr As Row = Tables("表A").addnew nr("第一列") = r("第一列") nr("第二列") = Forms("窗口1").Controls("第二列").TextNext