以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  某两列禁止排序  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=39981)
--  作者：tj-pacer
--  发布时间：2013/9/5 22:36:00
--  某两列禁止排序
如让某两列禁止排序，代码怎么写写在哪？谢谢！
--  作者：有点甜
--  发布时间：2013/9/5 23:03:00
--  
 不能做到禁止某两列排序的哦。

 不过可以有代替的方法，你说明下是在什么情况下禁止的。
--  作者：lsy
--  发布时间：2013/9/6 8:44:00
--  

BeforeSort

 

If e.Table.Cols(e.Table.ColSel).Name = "产品名称" Then
    e.Cancel = True
End If
--  作者：狐狸爸爸
--  发布时间：2013/9/6 8:53:00
--  

呵呵，这样好点，BeforeSort事件：

 

If e.Sort = "产品名称" orelse e.Sort = "产品型号" Then

   e.Cancel = True

End If
--  作者：lsy
--  发布时间：2013/9/6 9:14:00
--  
以下是引用狐狸爸爸在2013-9-6 8:53:00的发言：

呵呵，这样好点，BeforeSort事件：

 

If e.Sort = "产品名称" orelse e.Sort = "产品型号" Then

   e.Cancel = True

End If

这样试过了，不行。

我的代码可以。
--  作者：狐狸爸爸
--  发布时间：2013/9/6 9:20:00
--  

呵呵，这样测试通过：

 

If e.Sort.Indexof("产品名称") >=0  OrElse e.Sort.indexof("产品型号") >= 0  Then
   e.Cancel = True
End If
--  作者：lsy
--  发布时间：2013/9/6 9:26:00
--  
以下是引用狐狸爸爸在2013-9-6 9:20:00的发言：

呵呵，这样测试通过：

 

If e.Sort.Indexof("产品名称") >=0  OrElse e.Sort.indexof("产品型号") >= 0  Then
   e.Cancel = True
End If

这样简洁，还管用，好。
--  作者：tj-pacer
--  发布时间：2013/9/8 17:07:00
--  

谢谢！