以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  不重复值  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=196532)
--  作者：cxmxjwlmq
--  发布时间：2025/5/10 11:27:00
--  不重复值
各位老师：思路是；第一步：从窗口中的表提取不重复的档口名称，第二步，在档口表中依据不重复的档口名数量增加行并将档口名称写进去。
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
  这段代码总感觉不能增加行

请各位老师指点！
--  作者：有点蓝
--  发布时间：2025/5/10 11:33:00
--  
For each s as string in Products 
     Dim r11 As Row = Tables("档口名称").AddNew
         r11("档口名称") = s
Next