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

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

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

李孝春

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

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

怎么去除获取到的数据集合中的重复值 发帖心情

Post By：2020/1/17 17:09:00 [只看该作者]

代码运行后会出现

瓮检起诉受[2019]52272500158号

陶孟昌---案件承办人

陶孟昌---检察官助理 ‘想去掉这个值’

肖立宪---检察官助理

其中陶孟昌会有多条记录怎么清除重复值？

职务表中有制单人职务类型职务人员操作单位四个字段

代码如下：

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

Dim tb1 As WinForm.Table = Forms("案件信息").Controls("Table1")

'For Each r4 As Row In tb1.Table.Rows

Dim r4 As Row = tb1.Table.Current

Output.Show(r4("部门受案号") )

Dim lsts As New List(Of String())

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

For Each lst As String() In lsts

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

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

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

Else

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

End If

'Next

End If

[此贴子已经被作者于2020/1/17 17:11:06编辑过]

有点蓝

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

加好友

发短信

等级：超级版主帖子：105948 积分：538809 威望：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 &

李孝春

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

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

回复：（有点蓝）那就没有必要加上职务类型咯Dim lsts... 发帖心情

Post By：2020/1/17 17:29:00 [只看该作者]

但是我又需要获取职务类型的值不然在新增表中我还需要另外查询值

有点蓝

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

加好友

发短信

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

Post By：2020/1/17 17:32:00 [只看该作者]

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

李孝春

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

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

回复：（有点蓝）在添加一个集合，使用过的姓名就添加... 发帖心情

Post By：2020/1/17 17:39:00 [只看该作者]

不大会弄呢老师可以指导下不

李孝春

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

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

回复：（有点蓝）在添加一个集合，使用过的姓名就添加... 发帖心情

Post By：2020/1/17 18:00:00 [只看该作者]

有点蓝老师我能够写到的就这个状态麻烦老师指导下谢谢

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

Dim lsts As New List(Of String())

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

For Each lst As String() In lsts

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

Dim lsts1 As New List(Of String())

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

For Each lst1 As String() In lsts1

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

有点蓝

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

加好友

发短信

等级：超级版主帖子：105948 积分：538809 威望：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

李孝春

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

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

回复：（有点蓝）If Forms("案件信息").Opened Then&n... 发帖心情

Post By：2020/1/17 20:39:00 [只看该作者]

运行错误提示

此主题相关图片如下：11.jpg

有点蓝

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

加好友

发短信

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

Post By：2020/1/17 21:23:00 [只看该作者]

请认真看7楼代码

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

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