在表B的DataColChanged事件中
Select e.DataCol.name Case "发料数量" If Tables("表A").current("未发料")<0.000001 Then Tables("表A").current("发料完成")=True Else Tables("表A").current("发料完成")=False End IfEnd Select