TextChanged

中有这段代码：

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

就出现上面的错误，如果去掉这段代码就正常了。

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

点击浏览该文件:cptims.foxdb

把错误提示关掉就可以了。

不过打开之前出现上图这样的错误提示。

狐狸爸爸 在吗？出来帮我解决一下啊。十万火急

狐狸爸爸 帮我看一下啊