以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  按条件计算显示  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=110123)

--  作者:fubblyc
--  发布时间: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


--  作者:fubblyc
--  发布时间:2017/11/27 15:53:00
--  
谢谢甜老师!!