代码,你想复杂了
Dim filter As Stringfilter ="工序 = '蒸镀+分切' and 未分切重量 > 0 and 分切已派工 = false or 工序 = '分切' And 分切已派工 = false"
Tables("引入生产单_生产主表").filter = filter
Tables("引入生产单_生产主表").sort = "交货日期"Tables("引入生产单_生产主表").ShowCheckBox = True