Foxtable(狐表)用户栏目专家坐堂 → 两条件筛选


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

主题:两条件筛选

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


加好友 发短信
等级:小狐 帖子:144 积分:3044 威望:0 精华:0 注册:2018/5/10 13:51:00
两条件筛选  发帖心情 Post By:2018/7/8 20:00:00 [只看该作者]

用户已被锁定

 回到顶部
帅哥,在线噢!
y2287958
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:4628 积分:33772 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By:2018/7/9 8:25:00 [只看该作者]

1.
Dim v As Integer = 0
Dim khmc As WinForm.ComboBox = e.Form.Controls("客户名称")
Tables("生产安排窗体_入库主表").Filter = "去订单后实际库存 < " & v & " and 客户名称 = '" & khmc.Text & "'"

2.
Dim gx As WinForm.CheckBox = e.Form.Controls("勾选")
For Each r As Row In Tables("生产安排窗体_入库主表").Rows
    r.Checked = gx.Checked
Next

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


加好友 发短信
等级:小狐 帖子:144 积分:3044 威望:0 精华:0 注册:2018/5/10 13:51:00
  发帖心情 Post By:2018/7/9 9:24:00 [只看该作者]

用户已被锁定

 回到顶部