- 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=110123)
-- 发布时间：2017/11/27 11:04:00
-- 按条件计算显示
此主题相关图片如下：微信截图_20171127110132.png
老师，
我想让数量这列的条码为空的这一行的值等于 相同门店，编号，库位的数量之和
我在 DataColChanged 如下写了，程序直接崩掉了。要怎么优化呢。。。
If e.DataCol.name = "数量" Then
\'If e.DataRow.IsNull("条码") Then
\'e.DataRow("数量") = Tables("盘点").Compute("Sum(数量)", "盘点枪编号 = \'" & e.DataRow("盘点枪编号") & "\' and 库位 = \'" & e.DataRow("库位") & "\' ")
\'End If
For Each r As Row In Tables("盘点").Rows
If r.Isnull("条码") Then
r("数量") = Tables("盘点").Compute("Sum(数量)", "盘点枪编号 = \'" & e.DataRow("盘点枪编号") & "\' and 库位 = \'" & e.DataRow("库位") & "\' ")
End If
Next
End If
-- 发布时间：2017/11/27 11:12:00
--
If e.DataCol.name = "数量" Then
For Each r As DataRow In e.DataTable.Select("条码 is null and 盘点枪编号 = \'" & e.DataRow("盘点枪编号") & "\' and 库位 = \'" & e.DataRow("库位") & "\' ")
Systemready = False
r("数量") = Tables("盘点").Compute("Sum(数量)", "盘点枪编号 = \'" & e.DataRow("盘点枪编号") & "\' and 库位 = \'" & e.DataRow("库位") & "\' ")
Systemready = True
Next
End If
-- 发布时间：2017/11/27 15:53:00
--
谢谢甜老师！！