以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  窗口组合框菜单生成问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=126166)

--  作者：风清杨 --  发布时间：2018/10/16 8:53:00 --  窗口组合框菜单生成问题 你好，老师，我是根据菜单设计任务二，去设计窗口组合框的功能，选不同表时，自动生成所有列名的菜单，请问如果使用窗口控制组合框生成？ 在功能区：CurrentTableChange事件中，写入以下事件命令： Vars("Sysupdateprintinfo")=True Dim lst As WinForm.ComboBox = Forms("刷卡记录").Controls("selectlb") lst.Items.Clear() For Each c As Col In CurrentTable.Cols     Dim ltm As New RibbonMenu.Button(c.Name)     ltm.Text = c.Name     lst.Items.Add(ltm) Next 错误详见图片 此主题相关图片如下：tim图片20181016085041.png

--  作者：有点蓝 --  发布时间：2018/10/16 9:31:00 --   菜单的用法不能用到窗口控件中，不是一回事 Vars("Sysupdateprintinfo")=True Dim lst As WinForm.ComboBox = Forms("刷卡记录").Controls("selectlb") Dim str As String For Each c As Col In CurrentTable.Cols     str = str  & "|" & c.Name Next lst.ComboList = str.Trim("|")

--  作者：风清杨 --  发布时间：2018/10/16 9:44:00 --   谢谢了，已按您的方法解决了