按降序排列二维数组vb.net

Question

请你能帮我按第二列降序排序吗？

Dim ds As New DataSet() 
conn.Open() 

techSpeciality = LB_techFaultType.Text 
techZone = LB_TechZone.Text 

Dim strSQL As String = "SELECT Tech_ID, Last_Zone FROM Technician_List WHERE Availability=TRUE AND Speciality='" & techSpeciality & "' AND Last_Zone='" & techZone & "'" 
Dim da As New OleDbDataAdapter(strSQL, conn) 

da.Fill(ds) 
'2D array 
Dim values(ds.Tables(0).Rows.Count - 1, 2) As Integer 

'for loop between 0 and all available technicians 
For value As Integer = 0 To ds.Tables(0).Rows.Count - 1 
'Tech_ID column 
    values(value, 0) = ds.Tables(0).Rows(value).Item(0).value() 
    'Zone column, converts negative value to a positive and minus' the selected techZone 
    Math.Abs(values(value, 1) = techZone - ds.Tables(0).Rows(value).Item(1).value()) 
Next 

Answer 1

修改这一行：

Dim strSQL As String = "SELECT Tech_ID, Last_Zone" & _ 
         " FROM Technician_List WHERE" & _ 
         " Availability=TRUE AND Speciality='" & techSpeciality & _ 
         "' AND Last_Zone='" & techZone & _ 
         "' ORDER BY Last_Zone DESC" 

有关ORDER更多信息通过关键词： http://www.w3schools.com/sql/sql_orderby.asp

Answer 2

另一种选择是做ORDER BY 2 DESC，而不是直接指定的列名。