Foxtable(狐表) → 用户栏目 → 专家坐堂 → 不重复值


  共有49人关注过本帖树形打印复制链接

主题：不重复值
帅哥哟，离线，有人找我吗？
cxmxjwlmq
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：361 积分：4359 威望：0 精华：0 注册：2018/4/6 18:02:00 		不重复值  发帖心情 Post By：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
  这段代码总感觉不能增加行

请各位老师指点！
 回到顶部
帅哥哟，离线，有人找我吗？
cxmxjwlmq
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：361 积分：4359 威望：0 精华：0 注册：2018/4/6 18:02:00 		  发帖心情 Post By：2025/5/10 20:38:00 [显示全部帖子]

老师：
Products = e.Form.Controls("Table1").Table.DataTable.GetValues("档口名称")
这一行代码执行时不是提取窗口中的表，那个地方写错了吗？
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04492 秒, 5 次数据查询