Dim vals As List(of String) = DataTables("表A").GetUniqueValues("","a列")Dim drs As New List(of DataRow)For Each val In Vals Dim dr As DataRow = DataTables("表A").find("a列 = '" & val & "'", "b列 Desc ") drs.Add(dr)Next