兄弟,我已经数不清是第几次给你解决这个问题了.也无力重复解释了.

不是说你随便写几个列名就能计算的了,这个列得存在,并且不是表达式列

For Each r As Row In Tables("生产_机织主料").Rows

    Select Case r("类别")

        Case "机织面料"

            If r("染色A单耗") = 0 Or r("染色B单耗") = 0 Or r("染色C单耗") = 0  Or r("染色D单耗") = 0 Or  r("印花A单耗") = 0 Or r("印花B单耗") = 0 Or r("印花C单耗") = 0  Or r("印花D单耗") = 0 Then

                r("染色A单价") = 0

                r("染色B单价") = 0

                r("染色C单价") = 0

                r("染色D单价") = 0

                r("印花A单价") = 0

                r("印花B单价") = 0

                r("印花C单价") = 0

                r("印花D单价") = 0

            End If

            r("染色A单价") = IIF(r("染色A采购量") <= r("染色最低量"),r("染色报价") + r("染色小缸费A"),r("染色报价"))

            r("染色B单价") = IIF(r("染色B采购量") <= r("染色最低量"),r("染色报价") + r("染色小缸费B"),r("染色报价"))

            r("染色C单价") = IIF(r("染色B采购量") <= r("染色最低量"),r("染色报价") + r("染色小缸费C"),r("染色报价"))

            r("染色D单价") = IIF(r("染色B采购量") <= r("染色最低量"),r("染色报价") + r("染色小缸费D"),r("染色报价"))

            r("印花A单价") = IIF(r("印花A采购量") <= r("印花最低量"),r("印花报价") + r("印花上机费A")+r("印花描稿费A金额") +r("印花开版费A金额"),r("印花报价"))

            r("印花B单价") = IIF(r("印花B采购量") <= r("印花最低量"),r("印花报价") + r("印花上机费B")+r("印花描稿费B金额") +r("印花开版费B金额"),r("印花报价"))

            r("印花C单价") = IIF(r("印花C采购量") <= r("印花最低量"),r("印花报价") + r("印花上机费C")+r("印花描稿费C金额") +r("印花开版费C金额"),r("印花报价"))

            r("印花D单价") = IIF(r("印花D采购量") <= r("印花最低量"),r("印花报价") + r("印花上机费D")+r("印花描稿费D金额") +r("印花开版费D金额"),r("印花报价"))

            r("坯布单价") = IIF(r("订单数量") <= r("坯布最低量"),r("坯布报价") + r("坯布放样费"),r("坯布报价"))

    End Select

Next

这是你DataColChanged事件里的代码,把红色这行注译掉.