Foxtable(狐表)用户栏目专家坐堂 → [求助]筛选条件问题


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

主题:[求助]筛选条件问题

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


加好友 发短信
等级:二尾狐 帖子:599 积分:4188 威望:0 精华:0 注册:2011/12/21 11:25:00
[求助]筛选条件问题  发帖心情 Post By:2012/12/7 22:34:00 [只看该作者]

在列属性定义数据,需要根据另一列数据进行筛选,筛选条件怎么写?请高手们指教
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table


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


加好友 发短信
等级:二尾狐 帖子:599 积分:4188 威望:0 精华:0 注册:2011/12/21 11:25:00
  发帖心情 Post By:2012/12/7 22:38:00 [只看该作者]

在具体点,就是在类别列填入数据“链条”,在形式列筛选出链条类的“有档”、“无档”,而不是显示全部。这在列属性的筛选条件中怎么填写表达式

 


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


加好友 发短信
等级:九尾狐 帖子:2193 积分:13908 威望:0 精华:2 注册:2012/2/25 10:59:00
  发帖心情 Post By:2012/12/8 0:17:00 [只看该作者]

请参考帮助 动态列表项目

 

1 在项目AfterOpenProject事件里写代码

 

Tables("商品").Cols("类别").Combolist = DataTables("型式").GetComboListString("类别")

 

2 在表属性DataColChanged 事件里写代码

Dim filter As String
filter= "类别 = '" &  e.DataRow("类别") &"'"
Tables("商品").Cols("型式").Combolist = DataTables("型式").GetComboListString("型式",filter)

 

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table


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


加好友 发短信
等级:二尾狐 帖子:599 积分:4188 威望:0 精华:0 注册:2011/12/21 11:25:00
  发帖心情 Post By:2012/12/8 18:29:00 [只看该作者]

师兄,有没有办法直接在列属性的筛选条件中直接填写代码,就是形式列根据左边的类别列筛选

 


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


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2012/12/9 0:36:00 [只看该作者]

以下是引用sunsenfeng在2012-12-8 18:29:00的发言:

师兄,有没有办法直接在列属性的筛选条件中直接填写代码,就是形式列根据左边的类别列筛选

 


木有这种方法。

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


加好友 发短信
等级:二尾狐 帖子:599 积分:4188 威望:0 精华:0 注册:2011/12/21 11:25:00
  发帖心情 Post By:2012/12/10 13:46:00 [只看该作者]

谢谢林总

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


加好友 发短信
等级:二尾狐 帖子:599 积分:4188 威望:0 精华:0 注册:2011/12/21 11:25:00
  发帖心情 Post By:2012/12/10 14:26:00 [只看该作者]

林总,把DataColChanged事件代码放到PrepareEdit事件中更合适,您看看


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


加好友 发短信
等级:二尾狐 帖子:599 积分:4188 威望:0 精华:0 注册:2011/12/21 11:25:00
  发帖心情 Post By:2012/12/10 14:30:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1-1.table


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


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

PrepareEdit事件:

 

If e.IsFocusCell AndAlso e.col.Name = "型式" Then
    Dim filter As String
    filter= "类别 = '" &  e.Row("类别") &"'"
    e.col.Combolist = DataTables("型式").GetComboListString("型式",filter)
End If


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


加好友 发短信
等级:二尾狐 帖子:599 积分:4188 威望:0 精华:0 注册:2011/12/21 11:25:00
  发帖心情 Post By:2012/12/10 14:50:00 [只看该作者]

谢谢狐爸

 回到顶部