以文本方式查看主题

-  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=170122)
--  作者：shenfengxiaozi
--  发布时间：2021/7/13 13:56:00
--  代码改为窗口按钮代码

以下这种 datacolchanged 代码 ，若是放到窗口按钮里，应该怎么改？

 

 

 

If e.DataCol.Name = "产品" Then
    e.DataRow("数量") = DataTables("订单").Compute("Sum(数量)","[产品] = \'" & e.NewValue & "\'")
End If
--  作者：有点蓝
--  发布时间：2021/7/13 14:16:00
--  
dim r as row = tables("xx表").current
if r isnot nothig then
r("数量") = DataTables("订单").Compute("Sum(数量)","[产品] = \'" & r("产品") & "\'")
end if