Foxtable(狐表)用户栏目专家坐堂 → 菜单栏功能组里的筛选


  共有4431人关注过本帖树形打印复制链接

主题:菜单栏功能组里的筛选

帅哥哟,离线,有人找我吗?
有点色
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/6/21 11:10:00 [只看该作者]

以下是引用白国栋在2017/6/21 10:52:00的发言:
表A统计完了之后,统计表B时候没有清屏,所以第二个价表格就统计不出来。

 

你切换表的时候 currentTableChanged、mainTableChanged 事件,你写代码处理不就好了?


 回到顶部
帅哥哟,离线,有人找我吗?
白国栋
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:176 积分:1689 威望:0 精华:0 注册:2017/3/26 10:20:00
  发帖心情 Post By:2017/6/21 14:47:00 [只看该作者]

水平分组:只显示字符型列名称   如:(单位、项目)
垂直分组:只显示字符型列名称   如:(单位、项目)
统      计:只显示数字型列名称   如:(资金)
统计列里只显示数据列,水平分组、垂直分组里只显示字符列的内容。
 下载信息  [文件大小:   下载次数: ]
点击浏览该文件:管理项目1.rar



 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/6/21 15:03:00 [只看该作者]

Vars("SysUpdatePrintInfo") = True

'任务二
With RibbonTabs("功能区1")("功能组1")("HGroup")
    .Items.Clear '清除原有项目
    For Each c As Col In CurrentTable.Cols '遍历当前表中的列
        '定义一个标准按钮,按钮的名称等于列名称.
        If c.IsString Then
            Dim b As New RibbonMenu.Button(c.Name)
            b.Text = c.Name '按钮的标题也等于列名称
            .Items.Add(b)
        End If
    Next
End With
With RibbonTabs("功能区1")("功能组1")("VGroup")
    .Items.Clear '清除原有项目
    For Each c As Col In CurrentTable.Cols '遍历当前表中的列
        '定义一个标准按钮,按钮的名称等于列名称.
        If c.IsString Then
            Dim b As New RibbonMenu.Button(c.Name)
            b.Text = c.Name '按钮的标题也等于列名称
            .Items.Add(b)
        End If
    Next
End With
With RibbonTabs("功能区1")("功能组1")("TotalOn")
    .Items.Clear '清除原有项目
    For Each c As Col In CurrentTable.Cols '遍历当前表中的列
        '定义一个标准按钮,按钮的名称等于列名称.
        If c.IsNumeric Then
            Dim b As New RibbonMenu.Button(c.Name)
            b.Text = c.Name '按钮的标题也等于列名称
            .Items.Add(b)
        End If
    Next
End With


 回到顶部
帅哥哟,离线,有人找我吗?
白国栋
  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:176 积分:1689 威望:0 精华:0 注册:2017/3/26 10:20:00
  发帖心情 Post By:2017/6/21 15:52:00 [只看该作者]

不会清谦屏呢???请教!我这个只能统计一次。(新手)请给我代码吧!!

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/6/21 15:56:00 [只看该作者]

Vars("SysUpdatePrintInfo") = True

'任务二
With RibbonTabs("功能区1")("功能组1")("HGroup")
    .Text = ""
    .Items.Clear '清除原有项目
    For Each c As Col In CurrentTable.Cols '遍历当前表中的列
        '定义一个标准按钮,按钮的名称等于列名称.
        If c.IsString Then
            Dim b As New RibbonMenu.Button(c.Name)
            b.Text = c.Name '按钮的标题也等于列名称
            .Items.Add(b)
        End If
    Next
End With
With RibbonTabs("功能区1")("功能组1")("VGroup")
    .Text = ""
    .Items.Clear '清除原有项目
    For Each c As Col In CurrentTable.Cols '遍历当前表中的列
        '定义一个标准按钮,按钮的名称等于列名称.
        If c.IsString Then
            Dim b As New RibbonMenu.Button(c.Name)
            b.Text = c.Name '按钮的标题也等于列名称
            .Items.Add(b)
        End If
    Next
End With
With RibbonTabs("功能区1")("功能组1")("TotalOn")
    .Text = ""
    .Items.Clear '清除原有项目
    For Each c As Col In CurrentTable.Cols '遍历当前表中的列
        '定义一个标准按钮,按钮的名称等于列名称.
        If c.IsNumeric Then
            Dim b As New RibbonMenu.Button(c.Name)
            b.Text = c.Name '按钮的标题也等于列名称
            .Items.Add(b)
        End If
    Next
End With


 回到顶部
帅哥哟,离线,有人找我吗?
白国栋
  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:176 积分:1689 威望:0 精华:0 注册:2017/3/26 10:20:00
  发帖心情 Post By:2017/6/21 17:20:00 [只看该作者]

谢谢!!!可以了。

 回到顶部
总数 16 上一页 1 2