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