主题：[求助]多值字段统计

在帮助中的“多值字段与统计”中，工号是数字时没有问题，工号直接用中文姓名就不行了，请教各位老师。

没看出问题啊? 哪里有问题?

在生成的统计表中“中文工号”没有分开
此主题相关图片如下：11.jpg

你上错例子了吧．和你描述不符

不好意思，我重新上传

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

点击浏览该文件:多字段统计.foxdb

StrToNarrow

将字符串转换为半角。

例如：

'''
Dim Val As String
Val = StrToNarrow("１２３")
Output.show(Val)

结果为：123

　

'''
MainTable = Tables("统计表")
DataTables("统计表").DataRows.Clear()
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(new Char() {",", "，"}) '将工号列内容拆分成数组
        Dim v As Single = 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 = DataTables("统计表").AddNew() '否则增加一行.
                dr2("操作者") = nm '新增行的工号列设置为此工号
                dr2("产品") = dr1("产品") '设置增行的产品
                lst.add(key,dr2) '将新增行添加到字典中,以便接下来检索
            End If
            dr2("数量") = dr2("数量") + v '加上平均后的产量
        Next
    End If
Next

结果还是和三楼相同，还有问题。。请大红测试下。

 留意红色代码，拷贝的时候，自己改成正确的啊。

 

http://www.foxtable.com/help/topics/1273.htm

 

复制代码的时候，第一行的'''不要漏掉。