下面的代码可以改为以不新增行的方法执行吗？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Tables("A表).Sort = "社区统计 DESC"

Dim Cols1() As String = {"社区","社区统计"}

Dim Cols2() As String = {"社区","社区统计"}

For Each dr1 As Row In Tables("A表").Rows

Dim dr2 As Row = Tables("B表").AddNew()

For i As Integer = 0 To Cols1.Length -1

dr2(Cols2(i)) = dr1(Cols1(i))

先将A表按照社区统计排序，然后在B表内新增行，把排序后的表A的“社区”、“社区统计”的内容复制到表B的“社区”、“社区统计”里去。

怎样让B表不需要新增行直接把排序后的表A的“社区”、“社区统计”的内容复制到表B的“社区”、“社区统计”里去？

datarow 和 row搞错了改一下

[此贴子已经被作者于2013-5-21 10:57:22编辑过]

主题：下面的代码可以改为以不新增行的方法执行吗？