CellButtonClick
If e.Col.Name = "产地" Then
e.Cancel = True
vars("按钮")=true
Forms("入库物资导入").open
End If
窗口afterload
If vars("按钮")=true Then
Forms("入库物资导入").Controls("多选导入").Enabled = False
Forms("入库物资导入").Controls("全选").Enabled = False
vars("按钮")=false
End If