移动行的时候，实现靠前排序的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

上下移动行按钮事件：

靠上行的单位，单位排序靠前，应该用什么参数返回？

'========================读部门排序===========================

DataTables("部门表").StopRedraw()

With CurrentTable

.Current.Move(.Position - 1)

End With

Dim wz As Integer = CurrentTable.Position

Dim i As Integer

CurrentTable.Position= 0

For i = 1 To CurrentTable.Count

' CurrentTable(i-1,"排序") = i '逐行写入行号

Tables("部门表").Rows(i-1)("部门排序") = i

'=======================读单位排序 ===========================

Dim vals As List(Of String) = DataTables("部门表").GetValues("单位")

Dim val As String = Tables("部门表").Current("单位")

Dim ii As Integer = vals.Indexof( val )

If ii >= 0

Tables("部门表").Current("单位排序") = ii+1 '这里没有办法按照靠前优先进行排序

End If

DataTables("部门表").ResumeRedraw()

CurrentTable.Position = wz

主题：移动行的时候，实现靠前排序的问题