以文本方式查看主题

-  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=52275)

--  作者:weijun
--  发布时间:2014/6/12 15:14:00
--  [求助]选中后锁定行把选中的数值在文本框中合计
选中后锁定行把选中的数值在文本框中合计
图片点击可在新窗口打开查看此主题相关图片如下:qq截图20140612151224.png
图片点击可在新窗口打开查看
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.rar

[此贴子已经被作者于2014-6-12 15:34:21编辑过]

--  作者:Bin
--  发布时间:2014/6/12 15:15:00
--  
利用Compute  http://www.foxtable.com/help/topics/0393.htm

Compute("sum(重量)","核销=True")

--  作者:有点甜
--  发布时间:2014/6/12 15:17:00
--  

 去编写表的Datacolchanged事件

 

If e.DataCol.name = "核销" Then
    If Forms("窗口1").Opened Then
        Forms("窗口1").Controls("TextBox1").Text = e.DataTable.Compute("sum(重量)","核销=True")
    End If
End If

[此贴子已经被作者于2014-6-12 15:17:25编辑过]

--  作者:weijun
--  发布时间:2014/6/12 15:31:00
--  

如果要合计 清零 进行第二次选中没有核销的再进行第二次计算呢?


--  作者:Bin
--  发布时间:2014/6/12 15:34:00
--  
增加一个按钮

清零  Forms("窗口1").Controls("TextBox1").Text=""


再次计算

Forms("窗口1").Controls("TextBox1").Text = e.DataTable.Compute("sum(重量)","核销=True")

计算没有核销的

Forms("窗口1").Controls("TextBox1").Text = e.DataTable.Compute("sum(重量)","核销=False")



--  作者:有点甜
--  发布时间:2014/6/12 15:35:00
--  
以下是引用weijun在2014-6-12 15:31:00的发言:

如果要合计 清零 进行第二次选中没有核销的再进行第二次计算呢?

 

什么叫做第二次选中和第二次计算?


--  作者:weijun
--  发布时间:2014/6/12 15:40:00
--  
有N个数值,第一次只计算了2个,第二次计算3个,需要重复计算N次。计算过的就锁定下次不能参与计算。
[此贴子已经被作者于2014-6-12 15:41:37编辑过]

--  作者:Bin
--  发布时间:2014/6/12 15:41:00
--  
无法理解你的意思.
--  作者:weijun
--  发布时间:2014/6/12 15:43:00
--  
N个数值,第一次只计算了2个,计算过的就锁定下次不能参与计算 第二次计算3个,需要重复计算N次。。
--  作者:有点甜
--  发布时间:2014/6/12 15:43:00
--  
以下是引用weijun在2014-6-12 15:40:00的发言:
有N个数值,第一次只计算了2个,第二次计算3个,需要重复计算N次。计算过的就锁定下次不能参与计算。
[此贴子已经被作者于2014-6-12 15:41:37编辑过]

 

是不是想说,选中某几行,就合计;然后点一下清零,然后再选在计算和显示?