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编辑过]