Dim cs() As String = {"批次", "序号"}
Dim cr As Row = Tables("表A").Current
If cr IsNot Nothing AndAlso cr.Index < Tables("表A").Rows.Count - 1 Then
Dim nr As Row = Tables("表A").Rows(cr.Index + 1)
For Each c As String In cs
Dim temp As String = nr(c)
nr(c) = cr(c)
cr(c) = temp
Next
End If
这个代码,只移动了批次和序号,其它没动,把所有要移动的加到 {"批次", "序号"}这里,太多了,能优化一下吗!![dvubb](images/emot/em64.gif)