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
加好友 
发短信
Post By：2010/8/7 13:19:00 [显示全部帖子]
