可以这样:
Dim cnt As Integer = DataTables("xxx").DataRows.Count
'合并数据的代码
For i As integer = cnt to DataTables("xxx").DataRows.Count - 1
Dim dr As DataRow = DataTables("xxx").DataRows(i)
dr("转换列") = dr("转换列") / 1000
Next
这样就不影响原来的数据了。