多值字段与统计

普通用户请忽略本节内容。

本节知识的一个要点是Dictionary,如果你对其已经生疏,请先温习一下。
这是一个很好的使用字典的例子,希望大家能细细体会。

假定有一个下图所示的产量登记表,其中员工工号列是多值字段

现在需要统计每个员工加工的产品数量,同一个产品,如果有多个员工参与加工,那么产量平分。

显然这样的统计,用传统的统计工具是无法实现的,我们只能手工编码统计,不过代码也不算复杂:

'生成统计表的结构
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("产量登记").DataRows
    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

在命令窗口执行上面的代码,即可得到如下统计结果:

如果要统计每个员工加工不同产品的数量,代码只需稍微调整一下:

'生成统计表的结构
Dim
dt As DataTable
Dim
dtb As New DataTableBuilder("统计")
dtb.AddDef(
"工号", Gettype(String), 16)
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("产量登记").DataRows
    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
            Dim
key As String = nm & "|" & dr1("产品")
'这里是关键,由工号和产品组成字典的关键词.
           
If lst.ContainsKey(key) '如果集合中包括此关键词对应的行
                dr2= lst(key)
'将此行赋值给变量dr2
           
Else
                dr2 = dt.AddNew()
'否则增加一行.
                dr2(
"工号") = nm '新增行的工号列设置为此工号
                dr2(
"产品") = dr1("产品") '设置增行的产品
                lst.add(key,dr2)
'将新增行添加到字典中,以便接下来检索
           
End If
        dr2(
"数量") = dr2("数量") + v '加上平均后的产量
       
Next
   
End If
Next
MainTable = Tables(
"统计")


本页地址:http://www.foxtable.com/webhelp/topics/2400.htm