主题：[讨论]　关于GetUniqueValues

数据多的话可以用数据填充器
C版那个是笔误，多嵌套了一个循环．
Dim lts As List(Of String)

lts = DataTables("表A").GetUniqueValues("", "第一列")

For i As integer = 0 to lts.count -1
   CurrentTable.Rows(i)("第一列") = lts(i)

Next

或者是

Dim lts As List(Of String)

lts = DataTables("表A").GetUniqueValues("", "第一列")
Dim i As Integer = 0

For Each lt As String In lts

    CurrentTable.Rows(i)("第一列") = lts(i)
    i = i + 1

Next