窗口中的按钮用以下代码，把表A数据加到表B中，但如果表B中存在和表A一样编码的，则更新数据。

现 存在一个问题，点击按钮 不能完全把表A数据引用到B中，总存在几列内容引不过去，只有再点一次按钮才能把剩下的数据引过去，

表的列特别多，有200多，这个代码有列数限制吗？

For Each dr1 As DataRow In DataTables("表A").datarows
        Dim dr2 As DataRow = DataTables("表B").find("编码=\'" & dr1("编码") & "\'")
        If dr2 Is Nothing Then
           dr2 =  DataTables("表B").AddNew()
            For Each dc As DataCol In DataTables("表a").DataCols
                If  DataTables("表B").DataCols.Contains(dc.name)  Then
                     If dc.Expression = "" Then                     
                        dr2(dc.Name) = dr1(dc.name)
                    End If
                End If
            Next
        Else           
          For Each dc As DataCol In DataTables("表a").DataCols             
                If  DataTables("表B").DataCols.Contains(dc.name)  Then
                    If dc.Expression = "" Then                    
                        dr2(dc.Name) = dr1(dc.name)
                    End If
                End If
            Next          
        End If
Next