1、看这个:
3、交换两列的值更简单:
For Each dr As DataRow In DataTables("表B").DataRows Dim v As Double = dr("最初单价") dr("最初单价") = dr("最终单价") dr("最终单价") = vNext