主题：[求助]关于手工编码进行统计（已解决）

一个案例，要求统计2012年8月份的在册人数及技术等级分布，按照帮助文件的“手工编码进行统计”方法，DataColChanged事件的代码应该如何写，请各位老师指教，谢谢！！

 代码在项目属性那里

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

点击浏览该文件:管理项目4.table

'///统计表datacolchanged事件

Dim dr As DataRow = e.DataRow
Dim dt As DataTable =DataTables("名册")
If e.DataCol.name = "车间" And e.DataRow.IsNull(e.DataCol.name) = False Then
    For Each dc As DataCol In e.DataTable.DataCols
        If dc.name.StartsWith("技术等级") Then
            Dim c As String = dc.name.SubString(dc.Name.IndexOf("_")+1)
            dr(dc.name)= dt.Compute("Count(姓名)", "车间 = '"& dr("车间") &"' And 技术等级 = '"& c &"' And 离厂日期 is null")
        ElseIf dc.name = "在册人数" Then
            dr(dc.name)= dt.Compute("Count(姓名)", "车间 = '"& dr("车间") &"' And 离厂日期 Is null")
        End If
    Next
End If

谢谢lin_hailun老师的回复，但是不是我想要的结果。 要求是统计2012年8月份的在册人数及技术等级分布，要去除月初前离厂和月底后进厂的人数（包括技术等级），可以实现吗，还请lin_hailun老师指教，谢谢！！

还有一个新问题，能否在此基础上再增加一行合计数，请lin_hailun老师指教，谢谢！！

如下代码

Select Case MainTable.Name
    Case "统计"
        MainTable.DataTable.DataRows.Clear
        Dim dt As DataTable = DataTables("名册")
        Dim chejians As List(Of String) = dt.GetUniqueValues("", "车间")
        For Each chejian As String In chejians
            Dim r As Row = MainTable.AddNew
            r("车间") = chejian
            r("在册人数") = dt.Compute("count(_Identify)", "进厂日期 <= #8/31/2012# And 离厂日期 > #8/1/2012# And 车间 = '" & chejian & "'")
            For i As Integer = 2 To 6
                r("技术等级_" & i) = dt.Compute("count(_Identify)", "技术等级 = " & i & " And 车间 = '" & chejian & "'And 进厂日期 <= #8/31/2012# And 离厂日期 > #8/1/2012# ")
            Next
        Next
        Dim nr As Row = MainTable.AddNew
        nr("车间") = "合计"
        nr("在册人数") = MainTable.Compute("Sum(在册人数)")
        For i As Integer = 2 To 6
            nr("技术等级_" & i) = MainTable.Compute("Sum(" & "技术等级_" & i & ")")
        Next
End Select

谢谢lin_hailun老师的热情指教，又学了一招，再次衷心感谢！！