分享个inArray函数

今天在群里，一群友的问题，我的解决办法是查出来再判断是否符合，函数如下

1. '功能:判断一个值是否存在于数组
   
2. Function InArray( sValue, aArray )
   
3.     Dim i
   
4.         'Response.write CStr(sValue)=CStr(Trim(aArray(0)))
   
5.         'Response.End
   
6.         sValue = CStr(sValue)
   
7.     InArray = False
   
8.     For i = 0 To UBound(aArray)
   
9.                 'Response.write CStr(Trim(aArray(i))) & "/"&CStr(sValue)&"<br>"
   
10.         If CStr(Trim(aArray(i))) = CStr(sValue) Then
    
11.             InArray = True
    
12.             Exit For
    
13.         End If
    
14.     Next
    
15. End Function

复制代码

select * from JCXX_DWXX where charindex(',2,',','+ChildPath+',')>0

这个是我在群里发的SQL语句解决方案啊，最好的办法还是用副表

天下第一 发表于 2024-11-22 20:56
这个是我在群里发的SQL语句解决方案啊，最好的办法还是用副表

也可以，看场景。

我是菜鸟，只能默默点赞学习！