- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求助：复选组合框单个值时可以进行模糊查找筛选，多个值时就不执行 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=131173)
-- 发布时间：2019/2/19 14:03:00
-- 求助：复选组合框单个值时可以进行模糊查找筛选，多个值时就不执行
求助：复选组合框单个值时可以模糊进行查找筛选，多个值时就不执行
发送对象是复选组合框，有多个值可选 如：党员，院领导，中层干部等
备注是复选组合框，也可以选择多个值，如：党员，院领导，中层干部等
此主题相关图片如下：11.png
上图是单个值时，系统可以根据信息内容变化后，自动生成对应的值
此主题相关图片如下：22.png
上图是多个值时，系统不根据信息内容变化后，自动生成对应的值，系统无动作
疑是 红色部分代码有问题 麻烦各位老师指导一下 谢谢
党建业务 表中代码如下：
Select Case e.DataCol.Name
Case "信息内容"
If e.DataRow("信息内容") IsNot Nothing Then
Dim Vals As List(of String)
Vals = DataTables("干警信息").GetValues("姓名","[备注] like \'%" & e.DataRow("发送对象").Replace(",","") & "%\'" )
For i As Integer = 0 To Vals.Count - 1
Dim dr As DataRow = DataTables("告知内容").AddNew()
dr("信息时间") = Date.Now
dr("姓名") = Vals(i)
dr("信息内容")=e.DataRow("信息内容")
dr("是否告知")= "否"
dr("注意事项")= e.DataRow("注意事项")
Next
End If
End Select
[此贴子已经被作者于2019/2/19 14:26:12编辑过]
-- 发布时间：2019/2/19 14:42:00
--
dim filter as string = "1=2"
for each s as string in e.DataRow("发送对象").split(",")
filter = filter & " or [备注] like \'%" & s & "%\' "
next
Vals = DataTables("干警信息").GetValues("姓名",filter )