- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]ComboBox下拉项 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=110620)
-- 发布时间：2017/12/6 13:49:00
-- [求助]ComboBox下拉项
老师，想实现转出和转入两个下拉项目不重复出现，遇到问题了。如下图，转出先选择“工行”，转入的包含工行的下拉项就不正常了，不知道该怎么实现。
此主题相关图片如下：666.png
附文件
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.foxdb |
-- 发布时间：2017/12/6 14:13:00
--
Dim s1 As String = e.Form.Controls("转出账户").Value
If s1 > "" Then
e.Sender.ComboList = DataTables("账户").GetComboListString("账户名称", "账户名称 not like \'%" & s1 & "%\'", "账户")
Else
e.Sender.ComboList = DataTables("账户").GetComboListString("账户名称", "", "账户")
End If
-- 发布时间：2017/12/6 14:21:00
--
有点甜老师，还是不行哦。
此主题相关图片如下：777.png
-- 发布时间：2017/12/6 14:22:00
--
先选工行，转入账户和“工行”相关的直接没有了
-- 发布时间：2017/12/6 14:48:00
--
Dim s1 As String = e.Form.Controls("转出账户").Value
If s1 > "" Then
e.Sender.ComboList = DataTables("账户").GetComboListString("账户名称", "账户名称 <> \'" & s1 & "\'", "账户")
Else
e.Sender.ComboList = DataTables("账户").GetComboListString("账户名称", "", "账户")
End If
-- 发布时间：2017/12/6 15:14:00
--
可以了，谢谢有点甜老师！