空白行是新增的,不能删除空白行,也不报错,是什么原因呢? Post By:2020/7/25 10:08:00 [显示全部帖子]
For i As Integer = Tables("业务处理临时").rows.count - 1 To 0 Step -1 If Tables("业务处理临时").Current("数量")=0 Tables("业务处理临时").rows(i).delete ElseIf Tables("业务处理临时").Current.Isnull("数量") Tables("业务处理临时").rows(i).delete ElseIf Tables("业务处理临时").Current.Isnull("物料编号") Tables("业务处理临时").rows(i).delete End If Next