- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 这个什么有重复值 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=179855)
-- 发布时间：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>"
Next
这个什么有重复值
-- 发布时间：2022/9/14 10:55:00
--
如果是多值字段，重复是正常的
-- 发布时间：2022/9/14 10:57:00
--
可以排除重复值不
-- 发布时间：2022/9/14 11:06:00
--
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=179833&replyID=199098&skin=1
-- 发布时间：2022/9/14 11:27: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>"
Next
-- 发布时间：2022/9/14 11:29:00
--
一样的用法，使用集合去重，自己写过的代码，换个地方就不会用了？
-- 发布时间：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
End If
Next
Dim a备注一1 As String = a备注一1 & "<Option value = \'" & lst & "\' >" & lst & "</Option>"
这个地方什么弄
-- 发布时间：2022/9/14 11:38:00
--
遍历集合，调用红色的代码
-- 发布时间：2022/9/14 11:42:00
--
反应不过来你说的意思，帮我弄一下
-- 发布时间：2022/9/14 13:47:00
--
无语
For Each a备注一2 As String In lst
a备注一1 = a备注一1 & "<Option value = \'" & a备注一2 & "\' >" & a备注一2 & "</Option>"
Next