点击页面集合中的选择框按钮，就卡死 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

生产管理→成本核算单_编辑窗口点击“新增”按钮添加数据，在“机织主料”的页面集合中，点击“染色”页面集合中的“小缸费”，随后，系统就死了。“机织里料”，“针织主料”，“针织里料”页面集合也出现同样的问题。请问这是为什么？请狐狸爸爸和各位高手帮我看一下。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:复件 ctims.foxdb

此主题相关图片如下：113.jpg

Dim r As DataRow = e.DataRow
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("印花报价"))

代码改成这样，还是卡死啊

DataColChanged事件该怎么写合适呢？

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
DataColChanged事件代码这样写，应该没有哪里不对啊。

我把附件下载到本地测试，还是出现同样的情况

狐狸爸爸帮我看一下啊。

哥哥我没有骗你的，

此主题相关图片如下：114.jpg

我反复测试了，是DataColChanged事件里的代码有问题，请问代码该如何该呢？

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

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