高分求如何让RS1记录集，不足10行填充满10行，填充空行

Question

如题

Answer 1

报表打印时用到Dim myRst As New ADODB.Recordset
myRst.CursorLocation = adUseClient
Set myRst = gConn.Execute(SQL)
就是要打印myRst，要求是这样的

Answer 2

谢谢jhone99 ，就是不想动表，只编辑记录集达到效果

Answer 3

用客户端游标,通过rs.recordcount判断下行数,不足用rs.addnew 方法对相应字段添加空值,然后绑定报表???

Answer 4

Dim lngRows As Long
    Dim i As Integer
    
    If rst.RecordCount < 10 Then
        lngRows = 10 - rst.RecordCount
    End If
    
    With rst   
        For i = 1 To lngRows     
            .AddNew
            .Fields(0) = ""
            .Fields(1) = ""
            .Fields(2) = ""
            .Fields(3) = ""
            .Update
            
            .MoveNext
        Next
    End With

Answer 5

yangao 如果其它字段允许null,貌似只要一个字段添加""值

Answer 6

sorry 是不想改变数据库的
看错了
这个改变了

Answer 7

先用select count（*）判断
再加
union all
 

Answer 8

只知道两种
一种是用存储过程
一种是在程序里判断查询出的数据是否够10行
不够的改变查询 下面union all空行不知有没有别的办法