Foxtable(狐表)用户栏目专家坐堂 → 求助:复选组合框单个值时可以进行模糊查找筛选,多个值时就不执行


  共有2278人关注过本帖树形打印复制链接

主题:求助:复选组合框单个值时可以进行模糊查找筛选,多个值时就不执行

帅哥哟,离线,有人找我吗?
李孝春
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
求助:复选组合框单个值时可以进行模糊查找筛选,多个值时就不执行  发帖心情 Post By:2019/2/19 14:03:00 [只看该作者]


求助:复选组合框单个值时可以模糊进行查找筛选,多个值时就不执行
发送对象是复选组合框,有多个值可选  如:党员,院领导,中层干部等
备注是复选组合框,也可以选择多个值,如:党员,院领导,中层干部等


图片点击可在新窗口打开查看此主题相关图片如下:11.png
图片点击可在新窗口打开查看
上图是单个值时,系统可以根据信息内容变化后,自动生成对应的值

图片点击可在新窗口打开查看此主题相关图片如下:22.png
图片点击可在新窗口打开查看
上图是多个值时,系统不根据信息内容变化后,自动生成对应的值,系统无动作
疑是  红色部分代码有问题  麻烦各位老师指导一下  谢谢
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:党建业务信息自动化 - 副本.foxdb


党建业务  表中代码如下:
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编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111411 积分:567125 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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  )

 回到顶部