老问题解决了，新问题跟着来了。自动计算惹的祸 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 老问题解决了，新问题跟着来了。自动计算惹的祸

共有10398人关注过本帖树形打印复制链接主题：老问题解决了，新问题跟着来了。自动计算惹的祸

yanzhen2010

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：212 积分：1564 威望：0 精华：0 注册：2011/7/20 21:00:00

老问题解决了，新问题跟着来了。自动计算惹的祸 发帖心情

Post By：2011/8/21 14:42:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:住院收费.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

lihe60

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6842 积分：43288 威望：0 精华：0 注册：2009/3/2 14:07:00

Post By：2011/8/21 15:07:00 [只看该作者]

以下是引用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

yanzhen2010

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：212 积分：1564 威望：0 精华：0 注册：2011/7/20 21:00:00

Post By：2011/8/21 15:43:00 [只看该作者]

以下是引用lihe60在2011-8-21 15:07:00的发言：

这是个死循环。

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

和老总的代码怎么会是死循环？怎么弄成活循环呢？

lihe60

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6842 积分：43288 威望：0 精华：0 注册：2009/3/2 14:07:00

Post By：2011/8/21 16:45:00 [只看该作者]

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

和老总的代码怎么会是死循环？怎么弄成活循环呢？

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

如此循环下去。

lihe60

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6842 积分：43288 威望：0 精华：0 注册：2009/3/2 14:07:00

Post By：2011/8/21 16:46:00 [只看该作者]

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

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