以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]自定义排序问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=30096)
--  作者：xvkewen
--  发布时间：2013/3/21 0:37:00
--  [求助]自定义排序问题
我想在更改流程序号后，开始判断这个流程是排前了还是排后了，然后自动的更改其他相关的流程序号再重新排序；于是我写了两个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("小于旧值")
            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
End Select
--  作者：lsy
--  发布时间：2013/3/21 7:43:00
--  

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

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

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

 

[此贴子已经被作者于2013-3-21 8:05:05编辑过]
--  作者：xvkewen
--  发布时间：2013/3/21 10:12:00
--  
如果将4改成2,那么大于4的不变,将小于4且大于等于2的数执行加1操作,如果将4改成8,那么小于4的不变,大于4且小于等于8的数执行减1操作。我这样说您能明白吗?
--  作者：狐狸爸爸
--  发布时间：2013/3/21 10:20:00
--  

用静态变量标记一下：

 

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
--  作者：xvkewen
--  发布时间：2013/3/21 17:41:00
--  
问题是解决了，我看了帮助里对静态变量的介绍； 但是就上面例子而言，我还是不懂这个静态变量是怎么工作的，看起来跟下面的代码没什么关系呀？狐爸能帮忙解释一下吗？
--  作者：xvkewen
--  发布时间：2013/3/21 17:41:00
--  

问题是解决了，我看了帮助里对静态变量的介绍； 但是就上面例子而言，我还是不懂这个静态变量是怎么工作的，看起来跟下面的代码没什么关系呀？狐爸能帮忙解释一下吗？
--  作者：狐狸爸爸
--  发布时间：2013/3/21 18:14:00
--  

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

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