Dim Customers As List(Of String) Customers = DataTables("坯布进仓").GetUniqueValues("", "产品") If Tables("表A").Rows.count < Customers.count Then Tables("表A").Addnew(Tables("表A").Rows.count - Customers.count) End If For i As Integer = 0 To Customers.Count - 1 Dim r As Row = Tables("表A").Rows(i) r("第六列") = Customers(i) Next