专家坐堂-用复选框清除是0的库存Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  用复选框清除是0的库存  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=159018)

--  作者：青丘狐
--  发布时间：2020/12/10 17:20:00
--  用复选框清除是0的库存

Dim chk As WinForm.CheckBox
chk = Forms("销售提单登记").Controls("CheckBox3")
If chk.Checked = True
    DataTables("销售提单登记_Table2").RemoveFor("[库存_重量] = \'0\'")
Else
    chk.Checked = False
    DataTables("销售提单登记_Table2").AppendLoad("[库存_重量] = \'0\'")

End If

统计表打勾可以清除是0的库存不打勾加载是0的库存出错请问怎么改写

--  作者：有点蓝
--  发布时间：2020/12/10 20:12:00
--
Dim chk As WinForm.CheckBox
chk = Forms("销售提单登记").Controls("CheckBox3")
    DataTables("销售提单登记_Table2").RemoveFor("[库存_重量] = 0")
If chk.Checked = False
    DataTables("销售提单登记_Table2").AppendLoad("[库存_重量] = 0")
End If