以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  两条件筛选  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=121523)

--  作者:y2287958
--  发布时间: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