Foxtable(狐表)用户栏目专家坐堂 → 筛选问题


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

主题:筛选问题

帅哥哟,离线,有人找我吗?
xjtg
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:134 积分:1101 威望:0 精华:0 注册:2010/5/27 18:06:00
筛选问题  发帖心情 Post By:2010/7/28 9:24:00 [只看该作者]

如何设筛选条件,由流水表得筛选表。只构思到:产品=   库存为0,日期为最晚一个。还是太难了,请求帮助?
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:筛选表.table


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2010/7/28 10:13:00 [只看该作者]

Dim dr As DataRow
dr = DataTables("XX").Find("产品 = 'yy' And 库存 = 0","日期 Desc")

 回到顶部
帅哥哟,离线,有人找我吗?
xjtg
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:134 积分:1101 威望:0 精华:0 注册:2010/5/27 18:06:00
  发帖心情 Post By:2010/7/28 16:12:00 [只看该作者]

yy是否定义个变量,我?????
[此贴子已经被作者于2010-7-28 16:28:25编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2010/7/28 16:32:00 [只看该作者]

XX,yy随便写的,xx是表名,yy表示要查找的产品名。

 回到顶部
帅哥哟,离线,有人找我吗?
xjtg
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:134 积分:1101 威望:0 精华:0 注册:2010/5/27 18:06:00
  发帖心情 Post By:2010/7/28 18:38:00 [只看该作者]

贺老师:yy表示要查找的产品名。yy应是变量。
Dim dr As DataRow
dr = DataTables("XX").Find("产品 = 'yy' And 库存 = 0","日期 Desc")

我把它放到命令窗口不执行。

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2010/7/28 19:01:00 [只看该作者]

这段代码的意思是找出某产品库存为0的最后一个日期的行,并放在变量dr中,在命令窗口执行,当让不会有任何反应。

 

如果要定位到此行,可以用下面的代码:

Dim dr As DataRow
dr = DataTables("XX").Find("产品 = 'yy' And 库存 = 0","日期 Desc")
If dr IsNot Nothing Then
    Dim wz As Integer = Tables("xx").FindRow(dr)
    If wz >= 0 Then
        Tables("xx").Position = wz
    End If
End If


 回到顶部
帅哥哟,离线,有人找我吗?
xjtg
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:134 积分:1101 威望:0 精华:0 注册:2010/5/27 18:06:00
  发帖心情 Post By:2010/7/28 23:34:00 [只看该作者]

我要找的是:某产品(最后一个日期,库存为0)。然后把它所有记录筛选出去。图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2010/7/29 6:31:00 [只看该作者]

筛选就这样:

 

Dim dr As DataRow
dr = DataTables("XX").Find("产品 = 'yy' And 库存 = 0","日期 Desc")
If dr IsNot Nothing Then

    Tables("xx").Filter = "[_Identify] = " & dr("_Identify")
End If


 回到顶部
帅哥哟,离线,有人找我吗?
xjtg
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:134 积分:1101 威望:0 精华:0 注册:2010/5/27 18:06:00
  发帖心情 Post By:2010/7/29 22:24:00 [只看该作者]

贺老师还是不能行呀?图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2010/7/30 8:51:00 [只看该作者]

我测试没有问题:

 

Dim dr As DataRow
dr = DataTables("流水").Find("产品 = 'PD03' And 库存 = 0","日期 Desc")
If dr IsNot Nothing Then
    Tables("流水").Filter = "[_Identify] = " & dr("_Identify")
End If


 回到顶部
总数 14 1 2 下一页