能否在循环代码中加一行判断?
想要实现的效果是:如果该行的“标签”列是“新品”,那么最后两行代码改成
dr1("库存预警_标准库存量") = dr1("库存预警_标准库存天数") * dr1("最高日销量")
dr1("库存预警_警戒库存量") = dr1("供应商_交货天数") * dr1("最高日销量")
原来的代码这这样的:
For Each dr1 As DataRow In DataTables("采购预警表").Select(filter) '在表格中的每一行都筛选一次
dr1("库存预警_标准订货天数") = dr1("供应商_起订量") / sum
dr1("库存预警_标准库存天数") = dr1("库存预警_标准订货天数") + dr1("供应商_交货天数")
dr1("库存预警_标准库存量") = dr1("库存预警_标准库存天数") * dr1("日均销量")
dr1("库存预警_警戒库存量") = dr1("供应商_交货天数") * dr1("日均销量")