Dim lts As List(Of String)
lts = DataTables("表A").GetUniqueValues("", "第一列")
For Each lt As String In lts
For i As integer = 0 to lts.count -1
CurrentTable.Rows(i)("第一列") = lts(i)
Next