- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 点击页面集合中的选择框按钮，就卡死 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=48544)
-- 发布时间：2014/3/31 15:48:00
-- 点击页面集合中的选择框按钮，就卡死
生产管理→成本核算单_编辑 窗口 点击“新增”按钮添加数据，在“机织主料”的页面集合中，点击“染色”页面集合中的“小缸费”， 随后，系统就死了。“机织里料”，“针织主料”，“针织里料”页面集合也出现同样的问题。请问这是为什么？请狐狸爸爸和各位高手帮我看一下。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:复件 ctims.foxdb |
此主题相关图片如下：113.jpg
-- 发布时间：2014/3/31 15:51:00
--
DataColChanged事件死循环了. 建议你不要着急开发项目,先按部就班学习先吧
[此贴子已经被作者于2014-3-31 15:54:53编辑过]
-- 发布时间：2014/3/31 16:01:00
--
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("印花报价"))
-- 发布时间：2014/3/31 16:01:00
--
代码改成这样，还是卡死啊
-- 发布时间：2014/3/31 16:04:00
--
DataColChanged事件该怎么写合适呢？
-- 发布时间：2014/3/31 16:11:00
--
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事件代码这样写，应该没有哪里不对啊。
-- 发布时间：2014/3/31 16:11:00
--
表达式运算造成的
-- 发布时间：2014/3/31 16:15:00
--
我把附件下载到本地测试，还是出现同样的情况
-- 发布时间：2014/3/31 16:38:00
--
狐狸爸爸 帮我看一下啊。
-- 发布时间：2014/3/31 16:41:00
--
测试没问题,你打开错了文件吧