主题：代码问题

Vars("SysUpdatePrintInfo") = True
With RibbonTabs("数据库")("查询信息")("列名")
    .Items.Clear '清除原有项目
    For Each c As Col In CurrentTable.Cols '遍历当前表中的列
        '定义一个标准按钮,按钮的名称等于列名称.
        Dim b As New RibbonMenu.Button(c.Name)
        b.Text = c.Name '按钮的标题也等于列名称
        .Items.Add(b)
    Next
End With

 

请问以上代码红色部分怎样改写实现隐藏列不做候选值（不是移除列）。谢谢

Vars("SysUpdatePrintInfo") = True
With RibbonTabs("数据库")("查询信息")("列名")
    .Items.Clear '清除原有项目
    For Each c As Col In CurrentTable.Cols '遍历当前表中的列
        If c.Visible Then
            '定义一个标准按钮,按钮的名称等于列名称.
            Dim b As New RibbonMenu.Button(c.Name)
            b.Text = c.Name '按钮的标题也等于列名称
            .Items.Add(b)
        End If
    Next
End With

谢谢C版

Vars("SysUpdatePrintInfo") = True老师这段是什么意思？帮助里也差不多，全变量也不对哦

http://www.foxtable.com/webhelp/scr/0325.htm

老师意思还是个全局变量，我现在在看系统菜单模板，但是我一直没有找到在哪里定义的，无论是预先还是动态都没找到，导致很多代码无法理解

请仔细看5楼的帮助，仔细看，看完。已经说明很明白了。