主题：按列中内容排序是否能实现？

方法一： 必须添加辅助列，才能排序。根据你的规则，给那一列赋值。

方法二： 编写代码修改_Sortkey列的值，比如把第一赋值为 0、第二赋值为1，其余的，把其_Sortkey值+3

 这些都是最基础的代码啊

If e.DataCol.Name = "第一列" Then
    Dim ary() As String = {"第一", "第二", "第三"}
    If e.NewValue = Nothing Then
        e.DataRow("第二列") = 999
    Else
        Dim i = array.indexof(ary, e.NewValue)
        If i >= 0 Then
            e.DataRow("第二列") = i
        Else
            e.DataRow("第二列") = 999
        End If
    End If
End If