從第一個到最後一個移動數據表中的列

Question

我有一個sql存儲過程，它返回我的數據表中的某一組列。
在將數據表導出爲ex​​cel之前，我該如何移動（比方說）第一個位置的列到最後一個位置？

Dim myConn As New SqlConnection(strConnection) 
Dim myCmd As New SqlCommand(strSQL, myConn) 
Dim dt As DataTable = New DataTable() 
Dim da As SqlDataAdapter = New SqlDataAdapter(strSQL, myConn) 
da.Fill(dt) 

Dim excelPackage = New OfficeOpenXml.ExcelPackage 
Dim excelWorksheet = excelPackage.Workbook.Worksheets.Add("ProjectStatusReports") 
excelWorksheet.Cells("A3").LoadFromDataTable(dt, True) 

Answer 1

這改變了第一列到最後在DataTable位置：

dt.Columns(0).SetOrdinal(dt.Columns.Count - 1) 

• http://msdn.microsoft.com/en-us/library/system.data.datacolumn.setordinal.aspx
• http://msdn.microsoft.com/en-us/magazine/cc163495.aspx（搜索SetOrdinal）之前

的列的處理的序號位置都是d增加了一個插槽，爲定位的變化騰出空間。