以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何实现组合框里面筛选的值 一旦被选中后，就不允许再次出现了  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=132163)
--  作者：李孝春
--  发布时间：2019/3/15 11:22:00
--  如何实现组合框里面筛选的值 一旦被选中后，就不允许再次出现了
如何实现组合框里面筛选的值 一旦被选中后，就不允许再次出现了

图片点击可在新窗口打开查看此主题相关图片如下：33.png
图片点击可在新窗口打开查看

比如当前身份属性是检察官的有两个人
我选择其中一个张三之后，下一次组合框里面不再显示张三名字了  只显示六四名字   如果六四也被选择过了  下次就是空值

下面的代码怎么完善呢？

Dim cmb As WinForm.ComboBox = e.form.Controls("ComboBox1")
cmb.ComboList = DataTables("表A").GetComboListString("身份属性")


Dim cmb As WinForm.ComboBox = e.Sender
Dim str As string = e.Form.Controls("ComboBox1").Value
cmb.ComboList = DataTables("表A").GetComboListString("关注领域", "身份属性 = \'" & str & "\'")

[此贴子已经被作者于2019/3/15 11:23:09编辑过]
--  作者：有点甜
--  发布时间：2019/3/15 11:34:00
--  

比如

 

Dim cmb As WinForm.ComboBox = e.Sender
Dim str As String = e.Form.Controls("ComboBox1").Value
Dim s As String = DataTables("表C").GetComboListString("关注领域").replace("|", "\',\'")
cmb.ComboList = DataTables("表A").GetComboListString("关注领域", "身份属性 = \'" & str & "\' and 关注领域 not in (\'" & s & "\')")
--  作者：李孝春
--  发布时间：2019/3/15 11:53:00
--  回复：（有点甜）比如 Dim cmb As WinForm.C...
Dim cmb As WinForm.ComboBox = e.Sender
Dim str As String = e.Form.Controls("ComboBox1").Value
Dim s As String = DataTables("干警信息").GetComboListString("姓名").replace("|", "\',\'")
cmb.ComboList = DataTables("干警信息").GetComboListString("姓名", "身份属性 = \'" & str & "\' and 姓名 not in (\'" & s & "\')")

我采用上面的方式  结果无值

有点甜老师
红色部分为什么要表c呢？
Dim cmb As WinForm.ComboBox = e.Sender
Dim str As String = e.Form.Controls("ComboBox1").Value
Dim s As String = DataTables("表C").GetComboListString("关注领域").replace("|", "\',\'")
cmb.ComboList = DataTables("表A").GetComboListString("关注领域", "身份属性 = \'" & str & "\' and 关注领域 not in (\'" & s & "\')")
--  作者：有点甜
--  发布时间：2019/3/15 11:54:00
--  

表C和表A不同啊，表C是你要填写的表，表A是你引用数据的表。
--  作者：李孝春
--  发布时间：2019/3/15 12:24:00
--  回复：（有点甜）表C和表A不同啊，表C是你要填写的表，...
好的 有点甜老师  我再试一试
[此贴子已经被作者于2019/3/15 12:30:35编辑过]