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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 怎么去除获取到的数据集合中的重复值

共有2375人关注过本帖树形打印复制链接主题：怎么去除获取到的数据集合中的重复值

有点蓝

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/1/17 17:21:00 [显示全部帖子]

那就没有必要加上职务类型咯

Dim lsts As New List(Of String)

lsts= DataTables("职务").SQLGetValues("职务人员" ,"操作单位='" & _usergroup & "'and 制单人='" & r4("承办人") &"' ")

For Each lst As String In lsts

Dim dr21 As DataRow = DataTables("告知内容").sqlfind("姓名 = '" & lst &

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/1/17 17:32:00 [显示全部帖子]

在添加一个集合，使用过的姓名就添加到集合中，判断一下集合已经有的姓名就跳过循环

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/1/17 20:31:00 [显示全部帖子]

If Forms("案件信息").Opened Then

Dim lsts As New List(Of String())

lsts= DataTables("案件基本信息").SQLGetValues("承办人|部门受案号" ,"操作单位='" & _usergroup & "'")

Dim lsts1 As New List(Of String)

For Each lst As String() In lsts

'Output.Show( lst(0) & "--" & lst(1))

lsts1= DataTables("职务").SQLGetValues("职务人员|职务类型" ,"操作单位='" & _usergroup & "'and 制单人='" & lst(0) &"' ")

For Each lst1 As String() In lsts1

if lsts1.contains(lst1(0)) then continuew for

lsts1.add(lst1(0))

Output.Show( lst1(0) & "--" & lst1(1))

Dim dr21 As DataRow = DataTables("告知内容").sqlfind("姓名 = '" & lst1(0) & "'and 操作单位='" & _usergroup & "' and 部门受案号 = '" & lst(1) & "' ")

If dr21 Is Nothing Then '如果不存在同编号的订单

Output.Show("无数据")

Else

'Output.Show( dr21("部门受案号"))

End If

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/1/17 21:23:00 [显示全部帖子]

请认真看7楼代码

下一主题 >> << 上一主题

主题：怎么去除获取到的数据集合中的重复值