- 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=127592)
-- 发布时间：2018/11/17 15:48:00
-- [求助] 加总问题
老师，请帮忙解答一下，图中的两个加总为什么不对，并附实列。非常谢谢帮忙。
shipment表属性的代码如下
If e.DataCol.Name = "ShippingNo" Then
Dim Arys As List(Of String()) = DataTables("GSSInvoice").GetValues("shippingno|Totalprice","ShippingNo=\'" & e.NewValue & "\'")
Dim sum As Double= 0
For Each s As String() In arys
sum += val(s(1))
Next
e.DataRow("GSS_totalprice") = sum
End If
If e.DataCol.Name = "ShippingNo" Then
Dim Arys As List(Of String()) = DataTables("CustomsInvoice").GetValues("shippingno|Totalprice","ShippingNo=\'" & e.NewValue & "\'")
Dim sum As Double= 0
For Each s As String() In arys
sum += val(s(1))
Next
e.DataRow("CUSTOMS_totalprice") = sum
End If
customsinvocie 表属性的代码如下
If e.DataCol.Name <> "Totalprice" 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
gssinvocie 表属性的代码如下
If e.DataCol.Name <> "Totalprice" 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/11/17 15:48:00
--
此主题相关图片如下：捕获1.png
此主题相关图片如下：捕获.png
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:test.table |
-- 发布时间：2018/11/17 16:02:00
--
If e.DataCol.Name <> "Totalprice" Then
-- 发布时间：2018/11/17 20:30:00
--
老师，还是有点问题，两个记录值相同时，它就取一个了，不加总了。只有数值不同时才会相加。 我们要它们都相加，该如何修改，谢谢。
此主题相关图片如下：捕获2.png
此主题相关图片如下：捕获1.png
-- 发布时间：2018/11/18 22:04:00
--
If e.DataCol.Name = "ShippingNo" OrElse e.DataCol.Name = "Totalprice" Then
Dim sum As Double= 0
For Each dr As DataRow In DataTables("GSSInvoice").Select("ShippingNo=\'" & e.NewValue & "\'")
sum += dr("Totalprice")
Next
e.DataRow("GSS_totalprice") = sum
End If
-- 发布时间：2018/11/18 22:41:00
--
谢谢老师的帮忙。这么晚还在解答。另外问一下老师，这个Foxtable我也刚接触，这个网上下载的，可以用多长时间 ？新表是不是只能新建15个？
-- 发布时间：2018/11/19 0:31:00
--
谢谢老师的帮忙。这么晚还在解答。另外问一下老师，这个Foxtable我也刚接触，这个网上下载的，可以用多长时间 ？新表是不是只能新建15个？
3个月到半年的试用期。15个表、20个窗口。
-- 发布时间：2018/11/19 12:34:00
--
那到期后，同一台电脑，重新安装还能用吗？
-- 发布时间：2018/11/19 14:50:00
--
那到期后，同一台电脑，重新安装还能用吗？
重置操作系统可以用
-- 发布时间：2018/11/19 18:21:00
--
重置操作系统可以用 ？ 是重新装Foxtabel还是 windows, 这个正版你这边有吗？