以文本方式查看主题

-  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)

--  作者:Fox86
--  发布时间: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

--  作者:Fox86
--  发布时间:2017/12/6 14:21:00
--  

有点甜老师,还是不行哦。

 


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

--  作者:Fox86
--  发布时间: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

--  作者:Fox86
--  发布时间:2017/12/6 15:14:00
--  
可以了,谢谢有点甜老师!