主题：写代码

麻烦帮写代码，谢谢。

 

此主题相关图片如下：1111.png

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2.table

写好了

Dim t As Table = Tables("表B")
Dim t1 As Table = Tables("表A")
If t1.BottomPosition - t1.TopPosition  = t.BottomPosition - t.TopPosition  Then   
    Dim a As Integer = t.TopPosition -t1.TopPosition
    For i As Integer = t1.TopPosition To t1.BottomPosition
        For Each dc As DataCol In DataTables("表a").datacols
            If  DataTables("表B").DataCols.Contains(dc.name) AndAlso dc.name<> "序号"  Then
                t1.Rows(i)(dc.name)= t.Rows(i+a)(dc.name)
            End If
        Next
    Next
Else
    messagebox.show("所选行数不同")
End If

我用以上代码测试，正常，但若把窗口中的表B设置为副本，操作的时候，明明选中的行一样多，确提示选中行不同，是怎么回事？