Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]合计代码不执行，请教问题何在？


  共有14468人关注过本帖树形打印复制链接

主题：[求助]合计代码不执行，请教问题何在？
帅哥哟，离线，有人找我吗？
yanzhen2010
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：212 积分：1564 威望：0 精华：0 注册：2011/7/20 21:00:00 		[求助]合计代码不执行，请教问题何在？  发帖心情 Post By：2011/8/15 13:37:00 [只看该作者]

Select Case e.DataCol.Name
    Case "数量","剂量"
        If e.DataRow("剂量") Is Nothing Then
            e.DataRow("合计") = e.DataRow("数量")*e.DataRow("单价")
        End If
        If e.DataRow("数量") Is Nothing Then
            e.DataRow("合计") = e.DataRow("剂量")*e.DataRow("单价")
        End If
End Select

 

上述代码为何不执行，望不吝赐教

 表datacolchanged事件

 

[此贴子已经被作者于2011-8-15 13:39:40编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47511 积分：251479 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2011/8/15 13:50:00 [只看该作者]

Select Case e.DataCol.Name
    Case "数量","剂量","单价"
        If e.DataRow("剂量") Is Nothing Then
            e.DataRow("合计") = e.DataRow("数量") * e.DataRow("单价")
        ElseIf e.DataRow("数量") Is Nothing Then
            e.DataRow("合计") = e.DataRow("剂量") * e.DataRow("单价")
        End If
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
yanzhen2010
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：212 积分：1564 威望：0 精华：0 注册：2011/7/20 21:00:00 		  发帖心情 Post By：2011/8/15 14:46:00 [只看该作者]

以下是引用狐狸爸爸在2011-8-15 13:50:00的发言：

Select Case e.DataCol.Name
    Case "数量","剂量","单价"
        If e.DataRow("剂量") Is Nothing Then
            e.DataRow("合计") = e.DataRow("数量") * e.DataRow("单价")
        ElseIf e.DataRow("数量") Is Nothing Then
            e.DataRow("合计") = e.DataRow("剂量") * e.DataRow("单价")
        End If
End Select

老师，代码依然不执行，真是怪事
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47511 积分：251479 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2011/8/15 14:56:00 [只看该作者]

自己设计好一个表，有这三列，输入测试数据，写上你的代码，然后传上来。

 回到顶部
帅哥哟，离线，有人找我吗？
yanzhen2010
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：212 积分：1564 威望：0 精华：0 注册：2011/7/20 21:00:00 		  发帖心情 Post By：2011/8/15 15:33:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:住院.rar

 

“临时医嘱”数据表

文件已上传，请老师过目。

实在看不出问题出在何处。

 

 

问题为解决，等待高手进入

[此贴子已经被作者于2011-8-15 16:50:27编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47511 积分：251479 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2011/8/15 16:54:00 [只看该作者]

这样改一下：

 

Select Case e.DataCol.Name
    Case "数量","剂量","单价"
        If e.DataRow("剂量") IsNot Nothing Then
            e.DataRow("合计") = e.DataRow("剂量") * e.DataRow("单价")
        ElseIf e.DataRow("数量") IsNot Nothing Then
            e.DataRow("合计") = e.DataRow("数量") * e.DataRow("单价")
        End If
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
yanzhen2010
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：212 积分：1564 威望：0 精华：0 注册：2011/7/20 21:00:00 		  发帖心情 Post By：2011/8/15 17:43:00 [只看该作者]

以下是引用狐狸爸爸在2011-8-15 16:54:00的发言：

这样改一下：

 

Select Case e.DataCol.Name
    Case "数量","剂量","单价"
        If e.DataRow("剂量") IsNot Nothing Then
            e.DataRow("合计") = e.DataRow("剂量") * e.DataRow("单价")
        ElseIf e.DataRow("数量") IsNot Nothing Then
            e.DataRow("合计") = e.DataRow("数量") * e.DataRow("单价")
        End If
End Select

 

代码依然有问题，只有"剂量"列有数值时计算，"数量"列数值不计算
 回到顶部
帅哥哟，离线，有人找我吗？
don
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1812 积分：12999 威望：0 精华：14 注册：2008/10/11 18:07:00 		  发帖心情 Post By：2011/8/15 17:58:00 [只看该作者]

Select Case e.DataCol.Name
    Case "数量","剂量","单价" 
           Dim n1,n2 as Double     
            n1 = e.DataRow("剂量")
            n2 = e.DataRow("数量")
            e.DataRow("合计") = iif(n1=0,1,n1) *iif(n2=0,1,n2) * e.DataRow("单价")        
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
yanzhen2010
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：212 积分：1564 威望：0 精华：0 注册：2011/7/20 21:00:00 		  发帖心情 Post By：2011/8/15 18:54:00 [只看该作者]

朋友没有明白我的意思。但谢谢帮助。
我的意思是："数量"和"剂量"只允许其中之一参与合计的计算。不能是
"数量"*"剂量*"单价"
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47511 积分：251479 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2011/8/15 20:52:00 [只看该作者]

Select Case e.DataCol.Name
    Case "数量","剂量","单价"
        If e.DataRow.IsNull("剂量")= False Then
            e.DataRow("合计") = e.DataRow("剂量") * e.DataRow("单价")
        ElseIf e.DataRow.Isnull("数量") = False Then
            e.DataRow("合计") = e.DataRow("数量") * e.DataRow("单价")
        End If
End Select

 回到顶部
总数 15 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06445 秒, 5 次数据查询