以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  多值字段如何实现 值包含的内容 数据模糊筛选  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=174325)

--  作者:cnsjroom
--  发布时间:2022/1/11 11:08:00
--  多值字段如何实现 值包含的内容 数据模糊筛选
vars("username") 是系统登录后,自动将账户名赋值

然后打开窗体  想实现一个(承办人)多值字段值中  如果包含vars("username") 的内容就显示该条数据   如果不包含就不显示数据

下面的代码  vars("username") 包含张三的时候  会显示张三的数据    不包含的时候  就显示了全部数据   有没有办法修正它
让不包含张三的时候   就直接显示空数据  而不是全部数据

If vars("类别")="管理"  Then
    Tables("台账管理_table1").DataTable.LoadFilter=""
    \' Tables("台账管理_table1").DataTable.Load
Else
    Dim Products As List(Of String)
    Products = DataTables("报告书").sqlGetValues("报告书编号","承办人 like \'%" & vars("username")  & "%\'")
    For Each Product As String In Products
        Output.Show(Product)
            \'MessageBox.Show(vars("username"))
            Tables("台账管理_table1").DataTable.LoadFilter="报告书编号 like \'%" & Product  & "%\'"
            \'Tables("台账管理_table1").DataTable.Load
    Next
End If
[此贴子已经被作者于2022/1/11 11:39:57编辑过]

--  作者:有点蓝
--  发布时间:2022/1/11 11:18:00
--  
这个条件本来就是不包含的时候显示空数据的吧,不符合条件不可能加载数据的
--  作者:cnsjroom
--  发布时间:2022/1/11 11:37:00
--  回复:(有点蓝)这个条件本来就是不包含的时候显示空...
老师  但是现在就是符合条件的时候  他会显示符合条件的数据 
不符合条件的时候  他会把所有数据都显示出来
一楼代码有没有办法完善呢?

--  作者:有点蓝
--  发布时间:2022/1/11 11:42:00
--  
 Tables("台账管理_table1").DataTable.LoadFilter="报告书编号 in (\'" & DataTables("报告书").sqlGetcombostring("报告书编号","承办人 like \'%" & vars("username").replace("|","\',\'")  & "%\'")  & "\')\'"