请按照步骤进行:
1: datagrid的属性
AllowSorting=”true”：表示启用DataGrid排序的功能
2: 在HTML里面(加在table外面)加入一个<input id="sortfield" type="hidden" value="activity_student_id" name="sortfield" runat="server">
作为排序时改变字段用
3:datagrid中的排序表达式和数字字段一致


4 :加入命名空间 Imports System.Data
Imports System.Data.SqlClient

5:If InStr(sortfield.Value, "desc") = 0 Then
sortfield.Value = e.SortExpression & " desc"
Else
sortfield.Value = e.SortExpression & " asc"
End If
BindGrid()
说明:《1》e.SortExpression等于“被按下之排序链接”的字段名称。
《2》 If InStr(sortfield.Value, "desc") = 0如果原来的排序方式原来的排序方式为“递增排序”。这时把排序方式（softfield.value）设置成”Desc”（表示递减排序）。否则设置为””，表示为“递增排序”
《3》这时softfield.value获得的就是”字段”+”排序” 接着BindGrid().
Sub bindgrid()
txtSQL = "select * from ……where……….
DBSet = ExecuteSQL(txtSQL, ErrorMsg) '每个程序员获取dataset的方式都不一样,
'总之这里你就想办法获取一个dataset数据集 ,您也可以参考我的vb连接 sqlserver2000数据库的函数
Dim dtable As DataTable = DBSet.Tables(0)
Dim dview As New DataView(dtable)
dg.Sort = sortfield.Value
dg.DataSource = dview
dg.DataBind()
End Sub