Dim lst As new List(of String)
Dim dic As New Dictionary(Of String, String)
For Each dr As DataRow In DataTables("CC").DataRows
If dr.IsNull("客户名称") = False AndAlso dr.IsNull("入档日期") = False
If lst.Contains(dr("客户名称")) = False
lst.Add(dr("客户名称") )
Dim d As Date = dr("入档日期")
Dim key As String = d.Year
If dic.ContainsKey(key)
dic(key) += "/" & dr("客户名称")
Else
dic.Add(key,dr("客户名称"))
End If
End If
End If
Next
For Each k As String In dic.Keys
Output.Show(K & ":" & dic(k))
Next