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


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

主题:两条件筛选

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


加好友 发短信
等级:狐神 帖子:4773 积分:34673 威望: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

 回到顶部