主题：请问这段for each 语句哪里出错了？

For Each r As Row In Tables("成本核算单").Rows
    If r("面料类别") = "机织面料" And r("订单数量") <= r("坯布机织最低量") Then
        r("坯布单价") = r("坯布供应商报价") + r("坯布放样费")
    Else
        r("坯布单价") = r("坯布供应商报价")
    End If
Next

For Each r As Row In Tables("成本核算单").Rows
    If r("面料类别") = "机织面料" And r("订单数量") <= r("染色机织最低量") Then
        r("染色单价") = r("染色供应商报价") + r("染色小缸费")
    Else
        r("染色单价") = r("染色供应商报价")
    End If
Next

For Each r As Row In Tables("成本核算单").Rows
    If r("面料类别") = "机织面料" And r("订单数量") <= r("印花机织最低量") Then
        r("印花单价") = r("印花供应商报价") + r("印花上机费")+ r("印花描稿费")+ r("印花开版费")
    Else
        r("印花单价") = r("印花供应商报价")
    End If
Next

For Each r As Row In Tables("成本核算单").Rows
    If r("面料类别") = "针织面料" And r("订单数量") <= r("坯布针织最低量") Then
        r("坯布单价") = r("坯布供应商报价") + r("坯布上机费")
    Else
        r("坯布单价") = r("坯布供应商报价")
    End If
Next

For Each r As Row In Tables("成本核算单").Rows
    If r("面料类别") = "针织面料" And r("订单数量") <= r("染色针织最低量") Then
        r("染色单价") = r("染色供应商报价") + r("染色小缸费")
    Else
        r("染色单价") = r("染色供应商报价")
    End If
Next

For Each r As Row In Tables("成本核算单").Rows
    If r("面料类别") = "针织面料" And r("订单数量") <= r("印花针织最低量") Then
        r("印花单价") = r("印花供应商报价") + r("印花上机费")+ r("印花描稿费")+ r("印花开版费")
    Else
        r("印花单价") = r("印花供应商报价")
    End If
Next

我把上面这段代码加到TextChanged事件中，然后组合框就失效了。请问这段代码哪里出错了？

我是向实现这样的效果：

如果 面料类别=机织面料 且 订单数量≤坯布机织最低量 则 坯布单价=坯布供应商报价+坯布放样费
如果 面料类别=机织面料 且 订单数量≤染色机织最低量 则 染色单价=染色供应商报价+染色小缸费
如果 面料类别=机织面料 且 订单数量≤印花机织最低量 则 印花单价=印花供应商报价+印花上机费+印花描搞费+印花开版费

如果 面料类别=针织面料 且 订单数量≤坯布针织最低量 则 坯布单价=坯布供应商报价+坯布上机费
如果 面料类别=针织面料 且 订单数量≤染色针织最低量 则 染色单价=染色供应商报价+染色小缸费
如果 面料类别=针织面料 且 订单数量≤印花针织最低量 则 印花单价=印花供应商报价+印花上机费+印花描搞费+印花开版费

例子详见附件

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:cptims3.foxdb