If Tables("物料需求").rows.Count > 0 Then Tables("出库信息").StopRedraw SystemReady = False For Each r1 As Row In Tables("物料需求") If r1("物料需求_" & rq.text) > 0 Then Dim r2 As Row = Tables("出库信息").AddNew r2("零件号") = r1("零件号") r2("出库数量") = r1("物料需求_" & rq.text) End If Next SystemReady = True Tables("出库信息").ResumeRedraw