主题：[求助]能否在循环代码中加一行判断？

For Each dr1 As DataRow In DataTables("采购预警表").Select(filter)  '在表格中的每一行都筛选一次
    dr1("库存预警_标准订货天数") = dr1("供应商_起订量") / sum
    dr1("库存预警_标准库存天数") = dr1("库存预警_标准订货天数") + dr1("供应商_交货天数")
    If dr1("标记") Like "*新品*" Then
        dr1("库存预警_标准库存量") = dr1("库存预警_标准库存天数") * dr1("最高日销量")
        dr1("库存预警_警戒库存量") = dr1("供应商_交货天数") * dr1("最高日销量")
    Else
        dr1("库存预警_标准库存量") = dr1("库存预警_标准库存天数") * dr1("日均销量")
        dr1("库存预警_警戒库存量") = dr1("供应商_交货天数") * dr1("日均销量")
    End If