主题：多值统计

这里有个多值统计的例子：

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

融汇贯通所学到的知识，其实很简单：

DataTables("回访统计").DataRows.Clear()
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("回访统计").Find("销售代表 = '" & nm & "'")
        If dr2 Is Nothing Then
            dr2 = DataTables("回访统计").AddNew
            dr2("销售代表") = nm
        End If
        Dim cls() As String = {"材质类型款式","piao据注意事项","售后服务调换方式"}
        For Each cl As String In cls
            If dr1.Isnull(cl) = False Then
                Select Case dr1(cl)
                    Case 1
                        dr2(cl & "_较差") = dr2(cl & "_较差") + 1
                    Case 2
                        dr2(cl & "_一般") = dr2(cl & "_一般") + 1
                    Case 3
                        dr2(cl & "_满意") = dr2(cl & "_满意") + 1
                End Select
            End If
        Next
    Next
Next