以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助][求助]关于ComboBox的动态列表  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=49169)

--  作者:laoshu4569
--  发布时间:2014/4/13 14:10:00
--  [求助][求助]关于ComboBox的动态列表
有两个表表A 表B  表B 为基础数据表  窗口中第一个ComboBox的值来自表B   怎样 让第一个ComboBox选择相对应的表后 第二个ComboBox中出现表A中的所有列名
我知道 直接可以用表属性 来实现 可是放在窗口中用 ComboBox 怎样实现呢  事例上是针对当前表的操作  大家把那个我看看  那个代码 怎么写呢
[此贴子已经被作者于2014-4-13 14:12:20编辑过]

--  作者:laoshu4569
--  发布时间:2014/4/13 14:13:00
--  
事例在这里
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar


--  作者:y2287958
--  发布时间:2014/4/13 14:28:00
--  
e.Form.Controls("ComboBox1")的TextChanged:(去除e.Form.Controls("ComboBox2")的Enter事件代码

Dim s As String
If DataTables.Contains(e.Sender.Value)
    For Each dc As DataCol In DataTables(e.Sender.Value).DataCols
        s += dc.Name & "|"
    Next
    Dim c As WinForm.ComboBox = e.Form.Controls("ComboBox2")
    c.ComboList = s.TrimEnd("|")
End If