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

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

点击浏览该文件:住院收费.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