以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]下拉菜单筛选后再建立下拉菜单  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=179008)
--  作者：2900819580
--  发布时间：2022/8/2 22:27:00
--  [求助]下拉菜单筛选后再建立下拉菜单

ChangeEdit放置以下代码，可以实现输入内容，可以实现筛选后下拉功能，但只能输入一个字符，老师，是不是我放置的地方错了。还是代码有问题。

Dim cmd As New SQLCommand
cmd.C
Dim dr As Row = e.Row
Dim tb As Table = e.Table
Dim Gsdt As DataTable
Select Case e.Col.Name
    Case "仓位"
        cmd.CommandText = "SEL ECT DISTINCT 名称 Fro m {基础表} where glid = 2 and 长代码 like \'CKFL.%\' And 名称 like \'%" & dr("仓位") & "%\'"
        Gsdt = cmd.ExecuteReader()
        tb.cols("仓位").ComboList = Gsdt.GetComboListString("名称")
End Select
--  作者：有点蓝
--  发布时间：2022/8/2 22:32:00
--  
还是使用下拉窗口吧：http://www.foxtable.com/webhelp/topics/2465.htm

设置ComboList 会使单元格失去输入焦点