Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]事件代码执行后系统强行退出的求助


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

主题：[求助]事件代码执行后系统强行退出的求助
帅哥哟，离线，有人找我吗？
huangfanzi
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1105 积分：8967 威望：0 精华：0 注册：2014/10/25 11:24:00 		[求助]事件代码执行后系统强行退出的求助  发帖心情 Post By：2014/11/6 13:44:00 [显示全部帖子]

'计算重量累计单价 工序表 DataColChanged事件代码 以下代码生效后点击窗口界面中按钮后,系统会强行退出,不知何故,这段代码放到窗口界面中按钮代码中,又如何写?
'Dim Sum As Double
'Sum = Tables("工序表").Compute("Sum(重量单价)", "卷号 = '" & e.DataRow("卷号") & "'")
'e.DataRow("重量累计单价")=sum

 

注:附件中工序表内的DataColChanged事件代码中上面的代码设为了生效，窗口界面就一个按钮，内有填充数据及排续的代码。

 

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:成本累加.zip
 回到顶部
帅哥哟，离线，有人找我吗？
huangfanzi
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1105 积分：8967 威望：0 精华：0 注册：2014/10/25 11:24:00 		  发帖心情 Post By：2014/11/6 13:56:00 [显示全部帖子]

求老师解答，在线等。

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


加好友 发短信
等级：五尾狐 帖子：1105 积分：8967 威望：0 精华：0 注册：2014/10/25 11:24:00 		  发帖心情 Post By：2014/11/6 14:07:00 [显示全部帖子]

原来如此，要加IF啊，另外，这段代码我想放到窗口界面的按钮代码中，如何改写？之前学了半小时，没有成功。

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


加好友 发短信
等级：五尾狐 帖子：1105 积分：8967 威望：0 精华：0 注册：2014/10/25 11:24:00 		  发帖心情 Post By：2014/11/6 14:23:00 [显示全部帖子]

是统计全表，达到放在事件表中一样的效果，统计当前行我之前搞定的，就是搞全表没思路了

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


加好友 发短信
等级：五尾狐 帖子：1105 积分：8967 威望：0 精华：0 注册：2014/10/25 11:24:00 		  发帖心情 Post By：2014/11/6 14:48:00 [显示全部帖子]

有点甜老师，你3楼的代码放入后，系统是不退出了，但是运算结果全错了，最后一列的值不对。另外，你在楼上发的教程，是关于用代码重置表的，与我所说，在窗口的button中执行没什么关系啊？
[此贴子已经被作者于2014-11-6 14:50:38编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
huangfanzi
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1105 积分：8967 威望：0 精华：0 注册：2014/10/25 11:24:00 		  发帖心情 Post By：2014/11/6 15:03:00 [显示全部帖子]

在button中加入上面的重置代码后，计算结果正确了，可有一事不明，之前没加这行代码，我看到结果不对想到了重置的问题，所以点了系统菜单上的重置列，可是没用，为什么，非常不解？请帮我解释一下，谢谢。

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


加好友 发短信
等级：五尾狐 帖子：1105 积分：8967 威望：0 精华：0 注册：2014/10/25 11:24:00 		  发帖心情 Post By：2014/11/6 15:20:00 [显示全部帖子]

天，我一直以为重置列是所有的列，呵呵！
另外，3楼的放在表事件中的代码如何修改能让我在button中用，达到一样的效果，因为我实际要求远远比这个样表复杂，所以希望通过button来实现功能
[此贴子已经被作者于2014-11-6 15:23:27编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
huangfanzi
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1105 积分：8967 威望：0 精华：0 注册：2014/10/25 11:24:00 		  发帖心情 Post By：2014/11/6 15:48:00 [显示全部帖子]

Sum1 = Tables("工序表").Compute("Sum(重量单价)", "卷号 = '" & dr("卷号") & "'")

上面的这行代码中，"卷号 = '" & dr("卷号") & "'"的意思是卷号等于当前行的卷号，如果我想表达卷号等于上一行的卷号，应该如何写？谢谢
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05859 秒, 6 次数据查询