Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]过滤条件的写法


  共有2035人关注过本帖树形打印复制链接

主题：[求助]过滤条件的写法
帅哥哟，离线，有人找我吗？
青鸟
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：151 积分：1110 威望：0 精华：0 注册：2015/1/24 15:26:00 		[求助]过滤条件的写法  发帖心情 Post By：2016/8/26 9:00:00 [只看该作者]

下面代码，想得到的结果是：flt = 商品ID <> 001 AND 商品ID <> 002 AND 商品ID <> 003，请教怎么写？谢谢
Dim flt As String
Dim Lst As New List(Of String)
Dim Arys() As String
Lst.Add( "001")
Lst.Add("002")
Lst.Add("003")
Arys = Lst.ToArray() 
For Each dr As String In lst
    flt = "商品ID <>" & dr
    flt = flt & " And "
'msgbox(dr)
msgbox(flt)
Next
 回到顶部
帅哥哟，离线，有人找我吗？
Hyphen
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00 		  发帖心情 Post By：2016/8/26 9:08:00 [只看该作者]

Dim flt As String
Dim Lst As New List(Of String)
Dim Arys() As String
Lst.Add( "001")
Lst.Add("002")
Lst.Add("003")
Arys = Lst.ToArray() 
For Each dr As String In lst
    flt &= "商品ID <>" & dr
    flt = flt & " And "
'msgbox(dr)

Next
flt = flt.SubString(0,flt.Length - 4)
msgbox(flt)
 回到顶部
帅哥哟，离线，有人找我吗？
青鸟
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：151 积分：1110 威望：0 精华：0 注册：2015/1/24 15:26:00 		  发帖心情 Post By：2016/8/26 9:32:00 [只看该作者]

追问：

实际代码如下，麻烦帮看看有没有问题，红色代码是有错的，蓝色代码正确吗？
Dim flt As String
Dim spID() As DataRow
Dim drs As List(Of DataRow)
drs = DataTables("单价").Select("[定价日期]= '#& Date.Today &#'")
'
spID = drs.ToArray()
For Each dr As DataRow In drs
   If dr IsNot Nothing Then
      flt &= "[商品ID] <> '"& dr("商品ID")"'" & " And "
   End If
Next
flt = flt.SubString(0,flt.Length - 4)
msgbox(flt)

Tables("录入商品窗口_Table1").Filter = flt
 回到顶部
帅哥哟，离线，有人找我吗？
Hyphen
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00 		  发帖心情 Post By：2016/8/26 9:46:00 [只看该作者]

drs = DataTables("单价").Select("[定价日期]= '# " & Date.Today & "#'")


flt &= "[商品ID] <> '" & dr("商品ID") & "' And "
 回到顶部
帅哥哟，离线，有人找我吗？
青鸟
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：151 积分：1110 威望：0 精华：0 注册：2015/1/24 15:26:00 		  发帖心情 Post By：2016/8/26 15:49:00 [只看该作者]

谢谢，但有个新问题：
Tables("录入商品窗口_Table1").Filter = “商品ID ＝'001'" 语句，在DropDownForm类型窗口中无效吗？我是写在 AfterLoad事件中的

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/8/26 16:13:00 [只看该作者]

 写到 DropDownOpened 事件
 回到顶部
帅哥哟，离线，有人找我吗？
青鸟
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：151 积分：1110 威望：0 精华：0 注册：2015/1/24 15:26:00 		  发帖心情 Post By：2016/8/26 16:38:00 [只看该作者]

谢谢，正确了
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03516 秒, 4 次数据查询