以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  菜单栏功能组里的筛选  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=102487)

--  作者:白国栋
--  发布时间:2017/6/20 22:53:00
--  菜单栏功能组里的筛选
Vars("SysUpdatePrintInfo") = True
\'任务二
With RibbonTabs("功能区1")("功能组1")("HGroup")
    .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
例子里显示所有列的名称,我想让它只显示:
1、组合框中只显示文本列名称?
2、组合框中只显示数据列名称?
3、组合框中只显示表达显列名称?

--  作者:有点蓝
--  发布时间:2017/6/20 23:06:00
--  
1、http://www.foxtable.com/webhelp/scr/1375.htm

IsString判断该列是否是字符串型


    For Each dc As DataCol In CurrentTable.DataTable.DataCols \'遍历当前表中的列
        If dc.Expression > "" Then
            msgbox("这是表达式列")
        Else
            msgbox("这是数据列")
        End If
    Next



--  作者:白国栋
--  发布时间:2017/6/21 9:29:00
--  
新手,请谅解,正在学习当中。
图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:2.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:3.png
图片点击可在新窗口打开查看
水平分组:只显示字符型列名称
垂直分组:只显示字符型列名称
统      计:只显示数字型列名称

--  作者:白国栋
--  发布时间:2017/6/21 9:41:00
--  
软件内部例子那样一个个设置太麻烦,不同表格的时候还统计不上。
--  作者:有点色
--  发布时间:2017/6/21 9:47:00
--  
 现在你的问题是什么?哪里不会?具体例子发上来。
--  作者:白国栋
--  发布时间:2017/6/21 10:20:00
--  
1、
水平分组:只显示字符型列名称   如:(单位、项目)
垂直分组:只显示字符型列名称   如:(单位、项目)
统      计:只显示数字型列名称   如:(资金)
统计列里只显示数据列,水平分组、垂直分组里只显示字符列的内容。
[此贴子已经被作者于2017/6/21 10:42:37编辑过]

--  作者:有点色
--  发布时间:2017/6/21 10:21:00
--  
 具体项目上传上来。
--  作者:白国栋
--  发布时间:2017/6/21 10:44:00
--  
我把例子传上去了,我也不知道传没传上去。我这里看不到附件呢?
--  作者:有点色
--  发布时间:2017/6/21 10:45:00
--  
 跟上传图片一样上传你的项目。
--  作者:白国栋
--  发布时间:2017/6/21 10:52:00
--  
表A统计完了之后,统计表B时候没有清屏,所以第二个价表格就统计不出来。