主题：[求助]事件代码执行后系统强行退出的求助

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

 

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

 

 

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

点击浏览该文件:成本累加.zip

求老师解答，在线等。

If e.DataCol.Name = "重量单价" OrElse e.DataCol.Name = "卷号" Then
    Dim Sum1 As Double
    Sum1 = Tables("工序表").Compute("Sum(重量单价)", "卷号 = '" & e.DataRow("卷号") & "'")
    e.DataRow("重量累计单价")=sum1
End If

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

放到窗口界面你要是统计当前行呢?  还是要遍历整个表 统计一次?

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

3楼的代码没问题  要重置整个表,点一下 菜单的重置列即可 

 

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

 

有点甜老师，你3楼的代码放入后，系统是不退出了，但是运算结果全错了，最后一列的值不对。另外，你在楼上发的教程，是关于用代码重置表的，与我所说，在窗口的button中执行没什么关系啊？

 按钮最后加入代码

 

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