关于分页的问题

Question

为什么我按分组进行分页
但总是第一页没有东西
就是一个表头
从第二页开始从第一个数据一次显示出来了（是分组的显示）

Answer 1

excel吗？
参看：
    i = 3 '输出数据从第4行开始
    rs.MoveFirst
    Do Until rs.EOF
        i = i + 1
        For j = 0 To rs.Fields.Count - 1
            xsheet.Cells(i, j + 1) = rs.Fields(j).Value
        Next j
        If (i - 4) Mod 20 = 0 And i <> 4 Then '每20条记录为一页。i<>4的目的是为了不使第一页出空表（只有表头）
            xsheet.Range(xsheet.Cells(i, 1), xsheet.Cells(i, rs.Fields.Count)).Select '这一行尤其关键，用于选中当前添加的最后一行
            SendKeys "^{end}"               '向应用程序EXCEL发送一个组合键CTRL+END,使光标移到文件尾
            xsheet.HPageBreaks.Add Before:=ActiveCell    '添加一个分页符
        End If
        rs.MoveNext
    Loop

Answer 2

哦
忘了说了
我用的是datareport进行分页打印