| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]如何在窗口ComboBox控件从数据库取值并启用输入助手 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=50168) |
| -- 作者：wxfjamdc -- 发布时间：2014/4/30 15:12:00 -- [求助]如何在窗口ComboBox控件从数据库取值并启用输入助手 现在做了以下代码，可以出现列表和筛选了，但是出现列表后无法继续输入了 Dim txt As String = e.Sender.Text Dim dt As DataTable Dim cmd As New SQLCommand cmd.ConnectionName = "JD" cmd.CommandText = "select 合同编号 from {客户资料} where 合同编号 like \'%" & txt & "%\' " dt = cmd.ExecuteReader Dim cmb As WinForm.ComboBox = e.Sender cmb.ComboList = dt.GetComboListString("合同编号") cmb.OpenDropDown cmb. AutoComplete =True |
| -- 作者：有点甜 -- 发布时间：2014/4/30 15:15:00 -- 你这是多蛋疼的代码啊。
为什么不能把客户资料表的内容都先加载进来，然后直接设置？ |
| -- 作者：kunmails -- 发布时间：2014/4/30 15:27:00 -- 以下是引用有点甜在2014-4-30 15:15:00的发言：
你这是多蛋疼的代码啊。
为什么不能把客户资料表的内容都先加载进来，然后直接设置？ lz不加载可能是为了获取实时数据吧，加载了后不方便获取实时数据！ |
| -- 作者：wxfjamdc -- 发布时间：2014/4/30 16:04:00 -- 现在做了一个DropDownBox窗口 在DropDownBox控件的TextChanged写入以下 Dim txt As String = e.Sender.text Dim cmb As WinForm.DropDownBox = e.Sender Dim dt As DataTable = DataTables("客户资料") dt.LoadFilter = "合同编号 like \'%" & txt & "%\'" dt.load 可以实现筛选功能了，现在希望在下拉组合框输入内容后自动弹出 下拉窗口，怎么修改了 |
| -- 作者：Bin -- 发布时间：2014/4/30 16:18:00 -- 控件的输入助手属性设置为TRUE |
| -- 作者：Bin -- 发布时间：2014/4/30 16:19:00 -- 或者KeyDown事件 If e.Sender.DroppedDown =False Then e.Sender.OpenDropDown End If |
| -- 作者：wxfjamdc -- 发布时间：2014/4/30 16:34:00 -- AutoComplete =True 不是 DropDownBox 的成员 KeyDown发生后就跳出控件了，无法继续输入
|
| -- 作者：Bin -- 发布时间：2014/4/30 16:40:00 -- 搞错了,以为你是ComBoBOX |