'计算重量累计单价 工序表 DataColChanged事件代码 以下代码生效后点击窗口界面中按钮后,系统会强行退出,不知何故,这段代码放到窗口界面中按钮代码中,又如何写?'Dim Sum As Double'Sum = Tables("工序表").Compute("Sum(重量单价)", "卷号 = '" & e.DataRow("卷号") & "'")'e.DataRow("重量累计单价")=sum
注:附件中工序表内的DataColChanged事件代码中上面的代码设为了生效,窗口界面就一个按钮,内有填充数据及排续的代码。