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

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  怎么去除获取到的数据集合中的重复值  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=145380)

--  作者：李孝春
--  发布时间：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

\'Next
End If

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

--  作者：有点蓝
--  发布时间：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 &

--  作者：李孝春
--  发布时间：2020/1/17 17:29:00
--  回复：（有点蓝）那就没有必要加上职务类型咯Dim lsts...
但是我又需要获取职务类型的值不然在新增表中我还需要另外查询值

--  作者：有点蓝
--  发布时间：2020/1/17 17:32:00
--
在添加一个集合，使用过的姓名就添加到集合中，判断一下集合已经有的姓名就跳过循环

--  作者：李孝春
--  发布时间：2020/1/17 17:39:00
--  回复：（有点蓝）在添加一个集合，使用过的姓名就添加...
不大会弄呢老师可以指导下不

--  作者：李孝春
--  发布时间：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
Next
Next
End If

--  作者：有点蓝
--  发布时间：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
Next
Next
End If

--  作者：李孝春
--  发布时间：2020/1/17 20:39:00
--  回复：（有点蓝）If Forms("案件信息").Opened Then&n...
运行错误提示

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

--  作者：有点蓝
--  发布时间：2020/1/17 21:23:00
--
请认真看7楼代码