加空行问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 加空行问题

共有3097人关注过本帖树形打印复制链接主题：加空行问题

lhlh

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：211 积分：1997 威望：0 精华：0 注册：2014/11/11 10:23:00

加空行问题

Post By：2017/6/6 14:20:00 [只看该作者]

按产品名称分类，在每一类后面插入空行，如：每类产品+空行 = 8行，怎么写？

（原表）

此主题相关图片如下：捕获.jpg

（加行后）

此主题相关图片如下：捕获1.jpg

[此贴子已经被作者于2017/6/6 14:22:44编辑过]

有点色

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/6/6 15:26:00 [只看该作者]

1、你为什么要这样做？

2、只能做到这样

Dim dt As DataTable = DataTables("表B")
For Each s As String In dt.GetValues("第一列", "第一列 is not null")
    Dim count As Integer = dt.Compute("count(第一列)", "第一列 = '" & s & "'")
    For i As Integer = 1 To 8-count
        Dim ndr As DataRow = dt.addnew
        ndr("第一列") = s
    Next
Next

Tables("表B").sort = "第一列"

lhlh

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：211 积分：1997 威望：0 精华：0 注册：2014/11/11 10:23:00

Post By：2017/6/6 21:27:00 [只看该作者]

其实我也很头痛，想了很久，是想实现以下这个功能，能提供什么好方法或实例吗？

1. 有两个表：机构名称表、员工名册表，再者用单位编号关联。

2. 打印员工名册表，每页打印8人，少于或多于8人时，能自动补空行，这个功能帮助中有说明。（如图）

此主题相关图片如下：捕获03.jpg

3. 能根据机构名称表以及打印的员工名册表页码，自动生成名册目录。（如图）

此主题相关图片如下：捕获04.jpg

4. 打印名册顺序还要按照机构名称表的顺序，不能乱。

[此贴子已经被作者于2017/6/6 22:04:45编辑过]

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：111427 积分：567211 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/6/6 22:28:00 [只看该作者]

这个通过模板设置就可以了，没有必要添加行

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

排序http://www.foxtable.com/webhelp/scr/1397.htm

分组：http://www.foxtable.com/webhelp/scr/1542.htm

lhlh

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：211 积分：1997 威望：0 精华：0 注册：2014/11/11 10:23:00

Post By：2017/6/7 2:51:00 [只看该作者]

父表数据不显示，怎么办？

此主题相关图片如下：捕获07.jpg

此主题相关图片如下：捕获8.jpg

有点色

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/6/7 8:51:00 [只看该作者]

加上<GroupHeader>，如

<GroupHeader,员工名册表, 单位编号,1> 员工名册表

单位名称

<GroupHeader,员工名册表, 单位编号,1>

<员工名册表, 单位编号, -8>

lhlh

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：211 积分：1997 威望：0 精华：0 注册：2014/11/11 10:23:00

Post By：2017/6/7 13:34:00 [只看该作者]

谢谢，还有个问题：

我要用父表的单位名称自动做个目录，并将员工名册表打印时的页码自动符在单位名称后，有的单位可能人多，会超过两页。这样做得到吗？

如：

名册目录

单位一........................第1页单位四........................第9页

第位二........................第5页第位五........................第10页

第位三........................第8页第位六........................第15页

有点色

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/6/7 14:49:00 [只看该作者]

编写代码动态赋值吧。这样得到页数

Dim page As Integer = 0
For Each dw As String In DataTables("表A").GetValues("第一列", "第一列 is not null", "_Identify")
    Dim count As Integer = DataTables("表A").Compute("count(_Identify)", "第一列 = '" & dw & "'")
    output.show(dw & " " & count & " " & page+1)
    page += Math.Ceiling(count / 2)
Next