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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 这个什么有重复值

共有6605人关注过本帖树形打印复制链接主题：这个什么有重复值

qazlinle6

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

加好友

发短信

等级：七尾狐帖子：1553 积分：10507 威望：0 精华：0 注册：2013/6/8 16:19:00

这个什么有重复值 发帖心情

Post By：2022/9/14 10:52:00 [显示全部帖子]

For Each a备注一2 As String In DataTables("进货退货数据表").GetComboListString("备注一", "[备注一] <>'" & dr("备注一") & "' And ','+[店名]+',' like '%," & dr("店名") & ",%'").Replace(",", "|").split("|")

a备注一1 = a备注一1 & "<Option value = '" & a备注一2 & "' >" & a备注一2 & "</Option>"

这个什么有重复值

qazlinle6

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

加好友

发短信

等级：七尾狐帖子：1553 积分：10507 威望：0 精华：0 注册：2013/6/8 16:19:00

Post By：2022/9/14 10:57:00 [显示全部帖子]

可以排除重复值不

qazlinle6

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

加好友

发短信

等级：七尾狐帖子：1553 积分：10507 威望：0 精华：0 注册：2013/6/8 16:19:00

Post By：2022/9/14 11:27:00 [显示全部帖子]

改成我这个什么改

a备注一1 = a备注一1 & "<Option value = '" & a备注一2 & "' >" & a备注一2 & "</Option>"

qazlinle6

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

加好友

发短信

等级：七尾狐帖子：1553 积分：10507 威望：0 精华：0 注册：2013/6/8 16:19:00

Post By：2022/9/14 11:32:00 [显示全部帖子]

Dim lst As New List(Of String)

For Each s As String In DataTables("进货退货数据表").GetComboListString("备注一", "[备注一] <> '" & dr("备注一") & "' And ','+[店名]+',' like '%," & dr("店名") & ",%'").Replace(",", "|").split("|")

If lst.count = 0 Then

lst.add("[" & dr("备注一") & "]")

Else

If lst.contains(s) = False Then

lst.add(s)

End If

Dim a备注一1 As String = a备注一1 & "<Option value = '" & lst & "' >" & lst & "</Option>"

这个地方什么弄

qazlinle6

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

加好友

发短信

等级：七尾狐帖子：1553 积分：10507 威望：0 精华：0 注册：2013/6/8 16:19:00

Post By：2022/9/14 11:42:00 [显示全部帖子]

反应不过来你说的意思，帮我弄一下图片点击可在新窗口打开查看

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

主题：这个什么有重复值