以文本方式查看主题 - 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
|