主题：不知道是不是一个小bug

这不是bug来的，如果你想从第一行开始填充：

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