根据蓝老师的解答，我做了个示例。实现了“又比如发热与恶寒，那么条辩中有发热和恶寒的条辩能筛选出来”。
主要代码如下：
Dim str As String,Value As String = InputGjc
Dim sps() As Char = {"|","/","\"," ",StrToWide(" ")}
Dim Names() As String = Value.Split(sps)
For Each name As String In Names
If name.trim(" ",StrToWide(" "))>"" Then
If str>"" Then
str=str & " and "
End If
str=str & cexp(" [条辨] Like '%{0}%'",name)
End If
Next
Dim dtr As List(of DataRow) =DataTables("方库").SQLSelect( str,"","编号")
加好友 
发短信
Post By：2021/7/5 10:02:00 [显示全部帖子]
