以文本方式查看主题

-  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=142964)
--  作者：飞云
--  发布时间：2019/11/10 15:53:00
--  查询与赋值
文本框为“456,555,123”
表列数据为“123,456,555“
请问怎么查询让每组值完全匹配上
--  作者：程兴刚
--  发布时间：2019/11/10 20:07:00
--  
没看明白，请详细叙述！
--  作者：有点蓝
--  发布时间：2019/11/10 21:20:00
--  
这种要遍历所有行逐一判断处理了。具体上传实例说明
--  作者：飞云
--  发布时间：2019/11/12 14:54:00
--  
查询条件：123  定位到 1
               456,123 定位到2

说明：1.查询唯一的行
         2.位置颠倒的情况下查询条件内容与标题也算匹配

         谢谢老师！！！！！！

 标题    备注  定位  
   123   A   1
   123,456   B   2
   456,123,897   C   3
         
--  作者：有点蓝
--  发布时间：2019/11/12 15:14:00
--  
意思是找出123在一串多值数据的第几个位置?比如：xxx,xxx,123,xxx，位置为3？xxx,123,xxx,xxx，位置为2?
[此贴子已经被作者于2019/11/12 15:14:13编辑过]
--  作者：飞云
--  发布时间：2019/11/12 15:23:00
--  
123,321,666与321,123,666与666,321,123等按完全匹配算，有办法吗？
--  作者：飞云
--  发布时间：2019/11/12 15:27:00
--  
基础数据
 标题   内容   定位  
   123   A   1
   123,456   B   2
   456,789   C   3
   456   D  4 

如果查询内容为：123定位到1行，456定位到4行，123,456或456,123定位到2行，定位行是惟一的！
--  作者：有点蓝
--  发布时间：2019/11/12 15:53:00
--  
dim s as string = "123"
dim srr() as string = s.split(",")
dim dr as datarow = datatables("A").find("标题=\'" & s & "\'")
if dr isnot nothing then
msgbox("找到")
end if
if srr.length = 0 then return
dim str as string = "1=1 "
for each sr as string in srr
str = str & " and \',\' + 标题 + \',\' like \'%," & sr & ",%\' "
next
dim lst as list(of datarow) = datatables("A").Select(str)
for each dr in lst
if dr("标题").split(",").length = srr.length then
msgbox("找到" & dr("标题"))
end if
next
--  作者：飞云
--  发布时间：2019/11/12 19:09:00
--  
谢谢老师！