各位老师：思路是；第一步：从窗口中的表提取不重复的档口名称，第二步，在档口表中依据不重复的档口名数量增加行并将档口名称写进去。
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
Next
这段代码总感觉不能增加行
请各位老师指点！
For each s as string in Products
Dim r11 As Row = Tables("档口名称").AddNew
r11("档口名称") = s
Next