代码运行后会出现
瓮检起诉受[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编辑过]