不重复值 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

各位老师：思路是；第一步：从窗口中的表提取不重复的档口名称，第二步，在档口表中依据不重复的档口名数量增加行并将档口名称写进去。

Dim r As Row = Tables("档口对账_Table1").Current

Dim Products As List(Of String) '不重复值

Products = e.Form.Controls("Table1").Table.DataTable.GetValues("档口名称")

执行到此，不是提取的窗口中的表，直接到数据表里提取了，窗口中的表没有这多么档口名称

For dkmc As Integer = 0 To Products -1

Dim r11 As Row = Tables("档口名称").AddNew

r11("档口名称") = ybdys

这段代码总感觉不能增加行

请各位老师指点！

主题：不重复值