Sort

1¡¢IQueryFilterDefinition
Set pQueryFilter = New QueryFilter
pQueryFilter.WhereClause = "ForObsData=" & IIf(bIsForObsData, "1", "0") & " And UserDefine=1"
Dim pQueryFilterDefinition As IQueryFilterDefinition
Set pQueryFilterDefinition = pQueryFilter
pQueryFilterDefinition.PostfixClause = "ORDER BY PowerValue Desc"
2¡¢ITableSort
Dim pTableSort As ITableSort
Set pTableSort = New esriGeoDatabase.TableSort
pTableSort.Fields = "PowerValue"
pTableSort.Ascending("PowerValue") = False
pTableSort.CaseSensitive("PowerValue") = True
Set pTableSort.QueryFilter = pQueryFilter
Set pTableSort.Table = pTable
pTableSort.Sort Nothing