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 = "第一列"

 加上<GroupHeader>，如

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

                                                               单位名称

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

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

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

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