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

呵呵，你想在哪里统计？ 怎么统计？ 金额平分吗？

如果要汇总的话，还是分开录入吧，否则统计起来挺麻烦的。

如果不愿意分开，可以用下面的代码统计：

 

Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("操作者", Gettype(String), 32)
dtb.AddDef("金额", Gettype(Double))
dtb.Build()
For Each dr1 As DataRow In DataTables("操作者").DataRows
    Dim dr2 As DataRow = DataTables("统计").AddNew
    Dim Sum As Double = 0
    dr2("操作者") = dr1("操作者")
    dr2("金额")= DataTables("工资表").Compute("Sum(金额)","操作者 Like '*" & dr1("操作者") & "*'")
Next

 

呵呵，先不要着急，先看帮助，很快可以掌握。

关于这段代码用于建立统计表，帮助有讲述的：

 

http://help.foxtable.com/topics/0679.htm

 

好的。

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

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

 

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

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

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

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

 

看这个：

 

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

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