主题：如何横向统计个数？

参考代码

If e.DataCol.name.startswith("市内_") Then
    Dim i As Integer = 0
    For Each dc As DataCol In e.DataTable.datacols
        If dc.name.StartsWith("市内_") AndAlso e.DataRow.isnull(dc.name) = False Then
            i += 1
        End If
    Next
    e.DataRow("市内家数") = i
End If

比如

If e.DataCol.name.startswith("市内_") Then
    Dim ls As new List(Of String)
    For Each dc As DataCol In e.DataTable.datacols
        If dc.name.StartsWith("市内_") AndAlso e.DataRow.isnull(dc.name) = False Then
            If ls.Contains(e.DataRow(dc.name)) = False Then
                ls.add(e.DataRow(dc.name))
            End If
        End If
    Next
    msgbox(String.join(",", ls.ToArray))
End If