主题：列累加

 

各位师傅好！

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

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

2011-12-16                王东           早班              20                20

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

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

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

 

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

师傅你好：

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

师傅你好：

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

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

谢谢师傅的指导，易表使用习惯了，狐表没有易表灵活

说实话我没有编程基础，对语句的运用确实无法理解，因此学起来是很困难

各位师傅好：

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

没有哪位肯帮忙呀

 

 

如果现在能能写出来，就不需要找师傅呀，只能边用边学。

 

师傅你好：

有错误：应为语句结束

错误代码：drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [组长] = '" & dr("组长") & "'And 班次 ='" & dr("班次") & "' And 日期 = # " & dr("日期") & "#", "[_SortKey]"), "[_SortKey]")

师傅你好

14楼代码有一个“产品”是错误的