窗口AfterLoad事件
Tables("表B").Filter = "状态 = '未出厂'"Tables("窗口1_table2").Filter = "状态 = '已出厂'"
表B AfterCheckRow事件:
If e.Row.Checked = True Then e.Row("状态") = "已出厂" e.Row("出厂日期") = Tables("出厂记录").Current("出厂日期")Else e.Row("状态") = "未出厂" e.Row("出厂日期") = NothingEnd If