主题：老问题解决了，新问题跟着来了。自动计算惹的祸

以下是引用yanzhen2010在2011-8-21 14:42:00的发言：

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

点击浏览该文件:住院收费.rar

 

项目中“费用结算”表代码问题。当在“费用结算”窗口选择病人点击常规结算按钮时项目自动关闭。

找不到问题在哪？表事件中没有代码时按钮代码正常。

 

Select  e.DataCol.Name
    Case  = "拼音码"
        e.DataRow("合计") = DataTables("长期医嘱").Compute("Sum(合计)","[拼音码] = '" & e.NewValue & "'And [住院号] = '"& e.DataRow("住院号") &"'")+ DataTables("临时医嘱").Compute("Sum(合计)","[拼音码] = '" & e.NewValue & "'And [住院号] = '"& e.DataRow("住院号") &"'")
    Case "单价","数量"
        e.DataRow("数量") = e.DataRow("合计")/e.DataRow("单价")
End Select

这是个死循环。

Select  e.DataCol.Name
    Case  = "拼音码"
        e.DataRow("合计") = DataTables("长期医嘱").Compute("Sum(合计)","[拼音码] = '" & e.NewValue & "'And [住院号] = '"& e.DataRow("住院号") &"'")+ DataTables("临时医嘱").Compute("Sum(合计)","[拼音码] = '" & e.NewValue & "'And [住院号] = '"& e.DataRow("住院号") &"'")
    Case "单价"
        e.DataRow("数量") = e.DataRow("合计")/e.DataRow("单价")
End Select

当数量列变化时，执行一次  e.DataRow("数量") = e.DataRow("合计")/e.DataRow("单价")；
执行一次  e.DataRow("数量") = e.DataRow("合计")/e.DataRow("单价")，数量列发生变化；

如此循环下去。

我也是纸上谈兵，没有在你的项目止测试过。楼主自己测试一下

Select  e.DataCol.Name
    Case  = "拼音码"
        e.DataRow("合计") = DataTables("长期医嘱").Compute("Sum(合计)","[拼音码] = '" & e.NewValue & "'And [住院号] = '"& e.DataRow("住院号") &"'")+ DataTables("临时医嘱").Compute("Sum(合计)","[拼音码] = '" & e.NewValue & "'And [住院号] = '"& e.DataRow("住院号") &"'")
    Case "单价"
        e.DataRow("数量") = e.DataRow("合计")/e.DataRow("单价")
End Select