以文本方式查看主题

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

--  作者:ychen
--  发布时间:2016/5/25 11:25:00
--  求助
求一段代码,计算产量表里的“FTT计算“列
表使用过程是:
1、填好”不合格清单“所有内容(复制黏贴过来);’数据输入
2、复制粘贴”产量表“中,”日期“、“零件名称”、“生产数量”内容;’数据输入
3、计算第四列“FTT计算”,

计算过程:
1、根据“产量表”中的“日期”、“零件名称栏”,查找“不合格清单表”中对应的数量,并按工序汇总(如表中第一行、第二行都是工序30的,累加得到数量值N=3)
2、计算各工序的FTT值=(生产数量-N)/生产数量,
3、将同一产品各工序FTT值连乘,得到的值输入到“产量表“中对应的列。

求大师帮助。

附件怎么上传?

--  作者:大红袍
--  发布时间:2016/5/25 11:28:00
--  

请上传foxtable

 

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78

 


--  作者:ychen
--  发布时间:2016/5/25 11:33:00
--  

上传附件,

谢谢。

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:ftt.table


--  作者:大红袍
--  发布时间:2016/5/25 11:49:00
--  

DataColChanged事件

 

Select Case e.DataCol.name
    Case "日期","零件名称","生产数量"
        Dim dr As DataRow = Tables("产量").Current.DataRow
        Dim filter As String = "日期 = #" & dr("日期") & "# and 零件名称 = \'" & dr("零件名称") & "\'"
        Dim atff As Double = 1
        For Each gx As String In DataTables("不合格清单").GetValues("工序号", filter)
            Dim sl As Double = DataTables("不合格清单").Compute("sum(数量)", filter & " and 工序号 = \'" & gx & "\'")
            Dim tff As Double = (dr("生产数量")-sl)/dr("生产数量")
            atff = atff * tff
        Next
        dr("FTT计算") = atff
End Select


--  作者:ychen
--  发布时间:2016/5/25 14:03:00
--  

谢谢老师,

测试了一下,没有通过。

提示e.DataCol是private,因此在此上下文不可访问。


--  作者:大红袍
--  发布时间:2016/5/25 14:08:00
--  

写到datacolchanged事件去啊

 

http://www.foxtable.com/help/topics/1445.htm

 


--  作者:ychen
--  发布时间:2016/5/25 15:20:00
--  

谢谢老师。

 

如果要计算各个零件周、月的FTT值,怎么弄?

周的计算公式是周一到周日的FTT值相乘,

月的计算公式是1日到月末的FTT值相乘,

 

周值和月值分别放到一个新表里,排序并输出前十位(升序,最小的值在前面)

 

麻烦老师了图片点击可在新窗口打开查看


--  作者:ychen
--  发布时间:2016/5/25 16:45:00
--  
掉下去了。
--  作者:大红袍
--  发布时间:2016/5/25 17:40:00
--  

参考下面的帮助文档设置日期条件

 

http://www.foxtable.com/help/topics/2720.htm

 


--  作者:大红袍
--  发布时间:2016/5/25 17:41:00
--  

 初学者,先去看看视频教程

 

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=67187