|
For Each r As Row In Tables("成本核算单").Rows
Select Case r("面料类别")
Case "机织面料"
r("坯布单价") = IIF(r("订单数量") <= r("坯布机织最低量"),r("坯布供应商报价") + r("坯布放样费"),r("坯布供应商报价"))
r("染色单价") = IIF(r("订单数量") <= r("染色机织最低量"),r("染色供应商报价") + r("染色小缸费"),r("染色供应商报价"))
r("印花单价") = IIF(r("订单数量") <= r("印花机织最低量"),r("印花供应商报价") + r("印花上机费")+ r("印花描稿费")+ r("印花开版费"),r("印花供应商报价"))
Case "针织面料"
r("坯布单价") = IIF(r("订单数量") <= r("坯布针织最低量"),r("坯布供应商报价") + r("坯布上机费"),r("坯布供应商报价"))
r("染色单价") = IIF(r("订单数量") <= r("染色针织最低量"),r("染色供应商报价") + r("染色小缸费"),r("染色供应商报价"))
r("印花单价") = IIF(r("订单数量") <= r("印花针织最低量"),r("印花供应商报价") + r("印花上机费")+ r("印花描稿费")+ r("印花开版费"),r("印花供应商报价"))
End Select
Next
|
加好友 
发短信
Post By：2014/2/28 14:58:00 [显示全部帖子]
