主题：[求助]新手求助多值字段的统计问题

相同小号和日期的记录，是不是只有一行？

因为这决定编码的方式，所以先问一下。

 

不是，比如说一条记录中有二个人，最后得出来的不是二条记录吗，在这二条记录里要有这一条的所有数据。

 

原如录入的数据：

 

小号        日期           操作者        金额

1        2001-1-1      刘，王         1.05

2        2001-1-1      李，赵          2.01

3        2001-1-2      张               1.65

……

 

得出如下数据：

 

小号     日期            操作者     金额

1       2001-1-1        刘         1.05

1       2001-1-1        王         1.05

2       2001-1-1        李         2.01

2       2001-1-1        赵         2.01

3       2001-1-2        张         1.65

……

呵呵，这个我知道，不过我问的是原始数据表，也就是工资表的相同小号和日期的记录，是不是只有一行？

小号不重复，日期重复

不只是一行，有很多

14楼和15楼有点矛盾，如果小号不重复的话，那么工资表就不应该有相同小号和日期的行啊？

在原始录入的时候小号不重复，在统计出的临时表中可以重复

明白，我问的就是原始录入的时候是否有重复。

稍等，我帮你写一下代码。

 

此主题相关图片如下：1.bmp

 

此主题相关图片如下：2.bmp

请您看下，第1个是原始的数据，第2个是想统计出来的，给您添麻烦了，谢谢

看这个：

 

Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("小号", Gettype(String), 32)
dtb.AddDef("日期", Gettype(Date))
dtb.AddDef("操作者", Gettype(String), 32)
dtb.AddDef("金额", Gettype(Double))
dtb.Build()
For Each dr1 As DataRow In DataTables("工资表").DataRows
    If dr1.Isnull("操作者") Then
        Continue For
    End If
    Dim nms() As String = dr1("操作者").Split(",")
    For Each nm As String In nms
        Dim dr2 As DataRow =DataTables("统计").AddNew
        dr2("小号") = dr1("小号")
        dr2("日期") = dr1("日期")
        dr2("金额") = dr1("金额")
        dr2("操作者") = nm
    Next
Next

一般来说，提问的时候，原始数据应该多输入一点，这样便于其他人理解。