Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何对被复选框选中的行，进行某列的去重


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

主题：如何对被复选框选中的行，进行某列的去重
帅哥哟，离线，有人找我吗？
moseser
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：615 积分：5246 威望：0 精华：0 注册：2022/4/4 14:42:00 		如何对被复选框选中的行，进行某列的去重  发帖心情 Post By：2023/4/3 9:52:00 [只看该作者]

如有table1 ,一共50行，复选框选中了30 行，如何对，选中的这30行的，单位名称列，进行去重？

Dim rs As List(Of Row) = Tables("table1").GetCheckedRows
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107304 积分：545781 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/4/3 9:57:00 [只看该作者]

Dim rs As List(Of Row) = Tables("table1").GetCheckedRows
for i as integer = rs.count - 1 to 1 step -1
if rs(i)("单位名称") = rs(i-1)("单位名称")  then
rs(i).checked = false
rs.removeat(i)
end if
next
 回到顶部
帅哥哟，离线，有人找我吗？
moseser
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：615 积分：5246 威望：0 精华：0 注册：2022/4/4 14:42:00 		回复：（有点蓝）Dim rs As List(Of Row) = Tables("t...  发帖心情 Post By：2023/4/3 11:32:00 [只看该作者]

不是这个意思
比如 表A  
序号  名称        单位名称 
1    混凝土柱     m3
2    钢筋 φ12    t
3    预制柱         m3
4    混凝土梁      m3
5   钢筋 φ8        t

加入，目前选中的行，是这5行，我想对这5行的单位名称去重，得到的 是 m3  、 t 两个单位；
然后将这两个单位填写到 B表的 备注列，本列扩展为多值字段，  m3,t
 回到顶部
帅哥哟，离线，有人找我吗？
moseser
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：615 积分：5246 威望：0 精华：0 注册：2022/4/4 14:42:00 		回复：（moseser）回复：（有点蓝）Dim rs As List(Of...  发帖心情 Post By：2023/4/3 11:35:00 [只看该作者]

datatable("表A").getvalue("单位名称","是否可以用这里写个筛选")  ？用这种方式

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107304 积分：545781 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/4/3 11:38:00 [只看该作者]

Dim rs As List(Of Row) = Tables("table1").GetCheckedRows
dim s as string
Dim lst As new List(Of string)
for each r as row in rs
if lst.contains( r("单位名称")) = false  then
lst.add( r("单位名称"))
end if
next
s = string.join(",",lst.toarray())
msgbox(s)
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询