以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  列累加  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=15218)

--  作者:caoxy
--  发布时间:2011/12/16 13:54:00
--  列累加

 

各位师傅好!

数据表:应加工数手工输入,本班合计自动,写一组代码公式。

      日期                        组长         班次         应加工数         本班合计

2011-12-16                王东           早班              20                20

。。。。。。                 。。           。。              15               35

。。。。。。                 。。           。。               8                43

。。。。。。                 。。           。。               11              54

 

具体要求是:在同一个日期,同一个组长,同一个班次进行累积。


--  作者:狐狸爸爸
--  发布时间:2011/12/16 14:07:00
--  

参考:

 

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

 


--  作者:caoxy
--  发布时间:2011/12/16 14:41:00
--  

师傅你好:

帮助我看到了,他是一个流水式,我要的是同一个日期、同一个组长、同一个班次的累加。如果是同一个日期,另外一个组长,另外一个班次,数值不接在上一个组长、班次继续累加,实际上就是间断累加。


--  作者:狐狸爸爸
--  发布时间:2011/12/16 14:47:00
--  

后面一个例子就是区分产品的,多一个条件,少一个条件,原理都是一样的。


--  作者:caoxy
--  发布时间:2011/12/16 15:31:00
--  

师傅你好:

这组代码我不会写了,还是请师傅帮忙处理,谢谢!

Select Case e.DataCol.Name
    Case "日期","组长","班次","应加工数"
        Dim dr As DataRow
        Dim mr As DataRow = e.DataRow
        Dim drs As List(of DataRow)
        dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [日期] = \'" & mr("日期") & " And [组长] = \'" & mr("组长") & " And [班次] = \'" & mr("班次") & "\'", "[_SortKey] Desc")
        If dr Is Nothing Then
            mr("本班合计") = mr("应加工数") + mr("应加工数")
            dr = mr
        End If


--  作者:狐狸爸爸
--  发布时间:2011/12/16 16:10:00
--  

先学习,再动手。

我不是偷懒的人,我在论坛帮很多人写代码,但是你得有点基础才行,这样才能举一反三。


--  作者:caoxy
--  发布时间:2011/12/16 16:51:00
--  
谢谢师傅的指导,易表使用习惯了,狐表没有易表灵活
--  作者:狐狸爸爸
--  发布时间:2011/12/16 16:54:00
--  
以下是引用caoxy在2011-12-16 16:51:00的发言:
谢谢师傅的指导,易表使用习惯了,狐表没有易表灵活

 

其实狐表要比易表灵活得多的。


--  作者:caoxy
--  发布时间:2011/12/16 17:10:00
--  
说实话我没有编程基础,对语句的运用确实无法理解,因此学起来是很困难
--  作者:caoxy
--  发布时间:2011/12/17 9:27:00
--  

各位师傅好:

关于5楼的代码我暂时无法整理,还是先请师傅帮忙写一组代码,我是刚刚接触狐表的,只能先做起来,再研究探讨,水平才能得到进一步的的高,对正常易表的使用向狐表过渡。谢谢!