主题：点击页面集合中的选择框按钮，就卡死

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("印花报价"))
    End Select
Next