主题：用复选框清除是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的库存出错请问怎么改写