- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助] 汇总更新问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=128214)
-- 发布时间：2018/12/1 9:42:00
-- [求助] 汇总更新问题
版主，请指导一下，我用以下两个代码，在customsinvoice表属性中都试了，可还是有点问题。
另外一个汇总表中的 Netweight_total 只有当totalprice发生变化时，netweight_total汇总才会更新，我是让netweight_total列发生变化时，netweight_total汇总就会更新，当然汇总表中totalprice 当totalprice 变更时会同步更新。
以下哪儿错了吗？感谢。
If e.DataCol.Name = "ShippingNo" OrElse e.DataCol.Name = "Totalprice" OrElse e.DataCol.Name = "Netweight_total" Then
Dim pr As DataRow
pr = DataTables("Shipment").Find("ShippingNo = \'" & e.DataRow("ShippingNo") & "\'")
If pr IsNot Nothing Then
DataTables("Shipment").DataCols("ShippingNo").RaiseDataColChanged(pr)
End If
End If
或者改这样：
If e.DataCol.Name = "ShippingNo" OrElse e.DataCol.Name = "Totalprice" OrElse e.DataCol.Name = "Netweight_total" Then
Dim pr As DataRow
pr = DataTables("Shipment").Find("ShippingNo = \'" & e.DataRow("ShippingNo") & "\'")
If pr IsNot Nothing Then
DataTables("Shipment").DataCols("ShippingNo").RaiseDataColChanged(pr)
End If
End If
If e.DataCol.Name = "ShippingNo" OrElse e.DataCol.Name = "Netweight_total" Then
Dim pr As DataRow
pr = DataTables("Shipment").Find("ShippingNo = \'" & e.DataRow("ShippingNo") & "\'")
If pr IsNot Nothing Then
DataTables("Shipment").DataCols("ShippingNo").RaiseDataColChanged(pr)
End If
End If
-- 发布时间：2018/12/1 10:27:00
--
请上传具体实例测试
-- 发布时间：2018/12/1 11:42:00
--
版主，请帮忙看一下，就是按照这个链接来设置的，可是就是不知道哪儿错了，谢谢了。
-- 发布时间：2018/12/1 11:43:00
--
这是附件
-- 发布时间：2018/12/1 11:43:00
--
如附件
-- 发布时间：2018/12/1 11:44:00
--
上传了
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:新建文件夹.rar |
此主题相关图片如下：捕获.png
-- 发布时间：2018/12/1 12:06:00
--
先看看http://www.foxtable.com/webhelp/scr/2381.htm
-- 发布时间：2018/12/1 12:09:00
--
-- 发布时间：2018/12/1 12:25:00
--
明白，谢谢了。
-- 发布时间：2018/12/1 13:25:00
--
版主，再请教一下，想在窗口中增加个按钮，实现重置当前表中所有列的代码，可以吗？