以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  排序请教  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=53349)
--  作者：hbhb
--  发布时间：2014/7/5 17:56:00
--  排序请教
请教大师：
datatable.Select(Filter,Sort)
sort的排序列的默认是如何排序的，我要按在此列在table中顺序排序如何写？
--  作者：有点甜
--  发布时间：2014/7/6 9:32:00
--  

Datatables("表A").Select("", Tables("表A").Sort)
--  作者：hbhb
--  发布时间：2014/7/6 14:08:00
--  
大师好：
请问此用法示例在帮助的哪里？
--  作者：有点甜
--  发布时间：2014/7/6 14:32:00
--  
以下是引用hbhb在2014-7-6 14:08:00的发言：
大师好：
请问此用法示例在帮助的哪里？

 

帮助不会告诉你所有的用法，需要自己灵活组合。
--  作者：hbhb
--  发布时间：2014/7/6 16:33:00
--  
大师：劳驾帮助写一代码

有一字动态的字符串集合“a、b 、c、d、e、f”  
转换成条件表达式filter的 or语句
如果是d、e 跳过连接，但d、e客户有可能写成D、e1 ，其实是一个意思。如何写此代码？
--  作者：有点甜
--  发布时间：2014/7/6 17:11:00
--  
Dim str As String = "a,b,e,f,g,h,o,D,e1,E"
Dim filter As String = "1=2"
For Each s As String In str.Split(",")
    If s.StartsWith("d") = False AndAlso s.StartsWith("e") = False AndAlso s.StartsWith("D") = False AndAlso s.StartsWith("E") = False Then
        s = s.SubString(0, 1)
        filter &= " or 第一列 like \'" & s.ToLower & "*\' or 第一列 like \'" & s.ToUpper & "*\'"
    End If
Next
msgbox(filter)
--  作者：hbhb
--  发布时间：2014/7/6 17:34:00
--  
谢谢！佩服