[求助]自定义排序问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我想在更改流程序号后，开始判断这个流程是排前了还是排后了，然后自动的更改其他相关的流程序号再重新排序；于是我写了两个If语句来实现这样的功能，以下两个IF语句单独使用没有任何问题；但是如果把这两句IF放在一起就执行了死循环；原因我想跟dr("流程顺序") = dr("流程顺序")+1这句有关；怎么样才能让以下两个IF并存且不会出现死循环呢？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:自定义排序.table

Select e.DataCol.Name

Case "流程顺序"

Dim n As Integer = e.NewValue

Dim o As Integer = e.OldValue

Dim s As String = e.DataRow("_sortkey")

If n < o Then

Dim drs As List (Of DataRow) = e.DataTable.Select("办单号 = '" & e.DataRow("办单号") & "' and 流程顺序 >= " & e.NewValue & " and 流程顺序 < " & e.OldValue & " and _sortkey <> '" & s & "'" )

For Each dr As DataRow In drs

dr("流程顺序") = dr("流程顺序")+1

'msgbox("小于旧值")

End If

If n > o Then

Dim drs As List (Of DataRow) = e.DataTable.Select("办单号 = '" & e.DataRow("办单号") & "' and 流程顺序 <= " & e.NewValue & " and 流程顺序 > " & e.OldValue & " and _sortkey <> '" & s & "'")

For Each dr As DataRow In drs

dr("流程顺序") = dr("流程顺序")-1

'msgbox("大于旧值")

End If

Tables("工序工艺流程表").Sort = "流程顺序"

DataTables("工序工艺流程表").Save

End Select

本来的流程是1，2，3，4，5，6，7，8，9，10

现在把4改成了2，你想把原来大于4的改成什么？小于4的又改成什么？说详细一点。

如果是插入新号，还能说的通，要是更改原来的号，又要原顺序不变，小的就可能小于0了。

[此贴子已经被作者于2013-3-21 8:05:05编辑过]

如果将4改成2,那么大于4的不变,将小于4且大于等于2的数执行加1操作,如果将4改成8,那么小于4的不变,大于4且小于等于8的数执行减1操作。我这样说您能明白吗?

用静态变量标记一下：

Select e.DataCol.Name
    Case "流程顺序"
        Static bj As Boolean
        If bj = True Then
            Return
        Else
            bj = True
        End If
        Dim n As Integer = e.NewValue
        Dim o As Integer = e.OldValue
        Dim s As String = e.DataRow("_sortkey")
        If n < o Then
            Dim drs As List (Of DataRow) = e.DataTable.Select("办单号 = '" & e.DataRow("办单号") & "' and 流程顺序 >= " & e.NewValue & " and 流程顺序 < " & e.OldValue & " and _sortkey <> '" & s & "'" )
            For Each dr As DataRow In drs
                dr("流程顺序") = dr("流程顺序")+1
                'msgbox("小于旧值")
            Next
        End If
        If n > o Then
            Dim drs As List (Of DataRow) = e.DataTable.Select("办单号 = '" & e.DataRow("办单号") & "' and 流程顺序 <= " & e.NewValue & " and 流程顺序 > " & e.OldValue & " and _sortkey <> '" & s & "'")
            For Each dr As DataRow In drs
                dr("流程顺序") = dr("流程顺序")-1
                'msgbox("大于旧值")
            Next
        End If
        Tables("工序工艺流程表").Sort = "流程顺序"
        DataTables("工序工艺流程表").Save
        bj = False
End Select

问题是解决了，我看了帮助里对静态变量的介绍；但是就上面例子而言，我还是不懂这个静态变量是怎么工作的，看起来跟下面的代码没什么关系呀？狐爸能帮忙解释一下吗？

呵呵，我的解释就是帮助中的内容。

道理很简单，就是在DataColchanged事件中流程顺序后，不得执行DatacolChanged事件中的关键代码，避免死循环。

主题：[求助]自定义排序问题