主题：统计的合计值怎么写入另外一个表

呵呵，学好5楼和6楼的帮助，你会发现这很简单，我们一点不厉害。

 

我正在研究学习课件 统计演示.table，maintablechanged事件中有这样的代码：

 循环每一行，取出数值，相加，才行。具体请上传例子。

"保洁员 = "'"  & e.datarow("保洁员") & "' or 保洁员 like '%," & e.datarow("保洁员") & "' or 保洁员 like '%," & e.datarow("保洁员") & ",%' or 保洁员 like '" & e.datarow("保洁员") & ",%'"

WELL，Bin老师的代码我需要花时间研究下了。

Datacolchanged事件代码

 

If e.DataCol.Name = "保洁员" Then
    Dim cns() As String = {"一月","二月","三月","四月","五月","六月","七月","八月","九月","十月","十一月","十二月"}
    If e.NewValue = Nothing Then
        For Each cn As String In cns
            e.DataRow(cn) = Nothing
        Next
    Else
        Dim filter As String = "(保洁员 = '"  & e.DataRow("保洁员") & "' or 保洁员 like '%," & e.DataRow("保洁员") & "' or 保洁员 like '%," & e.DataRow("保洁员") & ",%' or 保洁员 like '" & e.DataRow("保洁员") & ",%')"
        For i As Integer = 0 To cns.Length - 1
            Dim d As Date = new Date(Date.Today.Year, i+1, 1)
            e.DataRow(cns(i)) = DataTables("派工表").compute("sum(人均价)", filter & " and 日期 >= #" & d & "# and 日期 < #" & d.AddMonths(1) & "#")
        Next
    End If
End If

.

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1 (1).table

TIANTIAN so effective, 要事先把 保洁员产值预设的 保洁员名单和月份删除掉吗？

Bin，也谢谢您，向您们学习，简直太厉害了。

BIN的代码只能求出三月份的，四月份或者以后月份的不能自动求助.