主题：统计表的问题

Dim sd As Date = e.Form.Controls("DateTimePicker1").Value
Dim ed As Date = e.Form.Controls("DateTimePicker2").Value

Dim dt As DataTable
Dim dtb As New  DataTableBuilder("计分统计表")
dtb.AddDef("工号", Gettype(String), 16)
dtb.AddDef("计分金额", Gettype(Double))
dt = dtb.Build()
'开始逐行累加统计
Dim lst As  New  Dictionary(of String ,DataRow) '定义一个字典,用于检索每个工号在计分统计表中对应的行
For Each dr1 As DataRow In DataTables("派工").Select("截止日期>='" & sd & "' and 截止日期 <'" & ed.AddDays(1) & "'")
    If dr1.IsNull("工号") = False Then '如果工号列不为空
        Dim nms() As String = dr1("工号").Split(",") '将工号列内容拆分成数组
        Dim v As Double = dr1("计分金额") / nms.Length '获得平均之后每个工号的生产计分金额
        For Each nm As String In nms  '遍历参与加工此产品的每个工号
            Dim  dr2 As  DataRow
            If  lst.ContainsKey(nm) '如果集合中包括此工号对应的行
                dr2=  lst(nm) '将此行赋值给变量dr2
            Else
                dr2 = dt.AddNew() '否则增加一行.
                dr2("工号") = nm  '新增行的工号列设置为此工号
                lst.add(nm,dr2) '将新增行添加到字典中,以便接下来检索
            End If
            dr2("计分金额") = dr2("计分金额") + v  '加上平均后的产量
        Next
    End If
Next
e.Form.Controls("计分统计表").Table.DataSource = DataTables("计分统计表")

 

 

 

派工表中有“”交单“”这一列，希望在代码中加入:只统计选中日期，并交单列为  已交单   的数据。

老师，我自己家按帮助，怎么都改不对。谢谢!

谢谢老师。我要导出为excel。怎么添加按钮代码呢？

 

 

。

 

我想把这个统计表，导出为excel。

现在统计表里只显示，工号和计分金额。我希望吧截止日期，部门这两列也在统计表里显示？

感谢老师的指导！

谢谢！