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

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

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

点击浏览该文件:复件 ctims.foxdb

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

DataColChanged事件死循环了. 建议你不要着急开发项目,先按部就班学习先吧

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

表达式运算造成的

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

狐狸爸爸 帮我看一下啊。

测试没问题,你打开错了文件吧