- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]多值字段统计 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=68026)
-- 发布时间：2015/5/8 11:03:00
-- [求助]多值字段统计
在帮助中的“多值字段与统计”中，工号是数字时没有问题，工号直接用中文姓名就不行了，请教各位老师。
[此贴子已经被作者于2015/5/8 11:40:32编辑过]
-- 发布时间：2015/5/8 11:12:00
--
没看出问题啊? 哪里有问题?
-- 发布时间：2015/5/8 11:20:00
--
在生成的统计表中“中文工号”没有分开
此主题相关图片如下：11.jpg
-- 发布时间：2015/5/8 11:21:00
--
你上错例子了吧．和你描述不符
-- 发布时间：2015/5/8 11:25:00
--
不好意思，我重新上传
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:多字段统计.foxdb |
-- 发布时间：2015/5/8 12:06:00
--
StrToNarrow
将字符串转换为半角。
例如：
\'\'\'
Dim Val As
String
Val = StrToNarrow("１２３")
Output.show(Val)
结果为：123
-- 发布时间：2015/5/8 12:35:00
--
\'\'\'
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
-- 发布时间：2015/5/8 14:40:00
--
结果还是和三楼相同，还有问题。
。请大红测试下。
[此贴子已经被作者于2015/5/8 14:40:42编辑过]
-- 发布时间：2015/5/8 14:56:00
--
留意红色代码，拷贝的时候，自己改成正确的啊。
http://www.foxtable.com/help/topics/1273.htm
[此贴子已经被作者于2015/5/8 14:56:48编辑过]
-- 发布时间：2015/5/8 15:00:00
--
复制代码的时候，第一行的\'\'\'不要漏掉。