like多值模糊查询 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

If e.DataCol.Name = "发送对象" Then

Dim dr As DataRow

dr = DataTables("干警信息").SQLFind("身份属性 like '%" & e.DataRow("发送对象") & "%' ")

MessageBox.Show(("身份属性 like '%" & e.DataRow("发送对象") & "%' "))

If dr Is Nothing Then

MessageBox.Show("当前发送对象,没有对应身份属性的人员姓名,不生成内容告知表!请核查!","提醒")

End If

当发送对象选择代表委员多值后

"身份属性 like '%" & e.DataRow("发送对象") & "%' "

弹出的值是身份属性 like ‘%代表，委员%’

但是人员信息表中身份属性值是人大代表或政协委员。

上述代码是不是写错了

想实现当发送对象选择值中含有代表或委员字样的就对应在人员信息表中去把符合的数据全部找出来

实现类似模糊查询

[此贴子已经被作者于2020/4/15 17:13:01编辑过]

如果我还需要加一个条件就是所在单位下面的写法貌似不对提示错误

DataTables("干警信息").SQLFind(s And "所在单位= '" & _usergroup & "' ")

谢谢有点蓝老师

如果我进一步采用sql语句的写法代码运行后提示

.NET Framework 版本：4.0.30319.42000

Foxtable 版本：2020.1.19.19

错误所在事件：加载[干警信息]失败!

详细错误信息：

' ' 附近有语法错误。

字符串 ' ' 后的引号不完整。

代码如下：

Dim cmb As WinForm.CheckedComboBox = e.Form.Controls("CheckedComboBox1")

Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")

lvw.StopRedraw() '暂停绘制

lvw.View = ViewMode.SmallIcon

lvw.CheckBoxes = True

lvw.Rows.Clear() '清除原来的行

lvw.Images.Clear()

Dim s As String = "1=2 "

For Each s1 As String In cmb.text.split(",")

s = s & " or 身份属性 like '%" & s1 & "%' "

msgbox(s)

Dim sql As String

sql = "Sele ct * From {干警信息} where 所在单位='"& _UserGroup & " And " & s & ""

'MessageBox.Show(sql)

'MessageBox.Show(_UserGroup)

DataTables("干警信息").SQ LLoad(sql)

For Each dr As DataRow In DataTables("干警信息").DataRows '从数据表中提取数据

Dim r As WinForm.ListViewRow = lvw.Rows.Add() '增加一行

r.Text = dr("姓名") '指定行的标题

r.Name = r.Text '将行的名称设置为标题,也就是国家

lvw.ResumeRedraw() '恢复绘制

如果红色部分更改为

DataTables("干警信息").SQLLoad("(" & s & ") And 所在单位= '" & _usergroup & "' ")

运行会提示出错

.NET Framework 版本：4.0.30319.42000

Foxtable 版本：2020.1.19.19

错误所在事件：加载[干警信息]失败!

详细错误信息：

'1' 附近有语法错误。

[此贴子已经被作者于2020/4/16 14:40:55编辑过]

如图

此主题相关图片如下：11.png

运行会提示出错

.NET Framework 版本：4.0.30319.42000

Foxtable 版本：2020.1.19.19

错误所在事件：加载[干警信息]失败!

详细错误信息：

'1' 附近有语法错误。

[此贴子已经被作者于2020/4/16 16:00:20编辑过]

有点蓝老师是这样么？这样写错误提示和楼上一样

Dim s As String = "1=2 "

For Each s1 As String In cmb.text.split(",")

s = s & " or 身份属性 like '%" & s1 & "%' "

'msgbox(s)

Dim sql As String

sql = "Sel ect * From {干警信息} where 所在单位='"& _UserGroup & "'"

sql= sql & s

DataTables("干警信息").SQL Load(sql)

[此贴子已经被作者于2020/4/16 17:02:40编辑过]

主题：like多值模糊查询