以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]事件代码执行后系统强行退出的求助  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=59550)
--  作者：huangfanzi
--  发布时间：2014/11/6 13:44:00
--  [求助]事件代码执行后系统强行退出的求助

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

 

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

 

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:成本累加.zip
--  作者：huangfanzi
--  发布时间：2014/11/6 13:56:00
--  
求老师解答，在线等。
--  作者：有点甜
--  发布时间：2014/11/6 14:04:00
--  
If e.DataCol.Name = "重量单价" OrElse e.DataCol.Name = "卷号" Then
    Dim Sum1 As Double
    Sum1 = Tables("工序表").Compute("Sum(重量单价)", "卷号 = \'" & e.DataRow("卷号") & "\'")
    e.DataRow("重量累计单价")=sum1
End If
--  作者：huangfanzi
--  发布时间：2014/11/6 14:07:00
--  
原来如此，要加IF啊，另外，这段代码我想放到窗口界面的按钮代码中，如何改写？之前学了半小时，没有成功。
--  作者：Bin
--  发布时间：2014/11/6 14:12:00
--  
放到窗口界面你要是统计当前行呢?  还是要遍历整个表 统计一次?
--  作者：huangfanzi
--  发布时间：2014/11/6 14:23:00
--  
是统计全表，达到放在事件表中一样的效果，统计当前行我之前搞定的，就是搞全表没思路了
--  作者：Bin
--  发布时间：2014/11/6 14:24:00
--  
3楼的代码没问题  要重置整个表,点一下 菜单的重置列即可 
--  作者：有点甜
--  发布时间：2014/11/6 14:29:00
--  
以下是引用huangfanzi在2014-11-6 14:07:00的发言：
原来如此，要加IF啊，另外，这段代码我想放到窗口界面的按钮代码中，如何改写？之前学了半小时，没有成功。

 

http://www.foxtable.com/help/topics/1468.htm

 
--  作者：huangfanzi
--  发布时间：2014/11/6 14:48:00
--  
有点甜老师，你3楼的代码放入后，系统是不退出了，但是运算结果全错了，最后一列的值不对。另外，你在楼上发的教程，是关于用代码重置表的，与我所说，在窗口的button中执行没什么关系啊？
[此贴子已经被作者于2014-11-6 14:50:38编辑过]
--  作者：有点甜
--  发布时间：2014/11/6 14:54:00
--  

 按钮最后加入代码

 

DataTables("工序表").DataCols("卷号").RaiseDataColChanged