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

Dim Customers As List(Of String)
Customers = DataTables("坯布进仓").GetUniqueValues("", "产品")

Dim r As Row

For i As Integer = 0 To Customers.Count - 1

      if i = Tables("表A").Rows.count 
            r =Tables("表A") .Addnew

      else

            r = Tables("表A").Rows(i)

      end if
            r("第六列") = Customers(i)

Next

其实都一样，只是增加一种解决问题的方法，逻辑不同而已！