向须序文件写信息的异常问题？(莫明奇妙的问题!)

Question

记录集根本没有移动，加上MoveNextFor i = 0 To (rsUser.RecordCount)
            strID(i) = rsUser!ID '序列号
            strFaBaoSheHao(i) = rsUser!FaBaoSheHao '发报社号
            strFaBaoSheMing(i) = rsUser!FaBaoSheMing '发报社名
            strShouBaoSheHao(i) = rsUser!ShouBaoSheHao '收报社号
            strShouBaoSheMing(i) = rsUser!ShouBaoSheMing '收报社名
            strJinEe(i) = Format((rsUser!JinEe), "##,###.#0") '金额
            strShouKuanSheMingCen(i) = rsUser!ShouKuanSheMingCen '收款社名称
            strShouKuanDanWeiZhangHao(i) = rsUser!ShouKuanDanWeiZhangHao '收款单位账号
            strFuKuanDanWeiMingCen(i) = rsUser!FuKuanDanWeiMingCen '付款单位名称
            strBianBaoRiQi(i) = Format((rsUser!BianBaoRiQi), "yyyy-mm-dd") '编报日期
            strYongTu(i) = rsUser!YoungTu '用途
            strBeiZhu(i) = rsUser!BeiZu '备注
            strJiZhang(i) = rsUser!JiZhang '记帐
            strShouFaZhuangTai(i) = rsUser!ShouFaZhuangTai '收发状态
            '增加以下语句
            rsUser.MoveNext
        Next i

Answer 1

给你几点建议：
1。访问数据库记录的模型
iCount = 0
do until rsUser.EOF
    iCount = iCount +1
    strID(i) = rsUser!ID '序列号
    strFaBaoSheHao(i) = rsUser!FaBaoSheHao '发报社号
    strFaBaoSheMing(i) = rsUser!FaBaoSheMing '发报社名
    strShouBaoSheHao(i) = rsUser!ShouBaoSheHao '收报社号
    ....   rsUser.MoveNext
loop
2.写文件的时候，在循环中不要再访问rsUser.RecordCount
应该把 For i = 0 To (rsUser.RecordCount)
修改为：for i = 1 to iCount3.你的程序的主要原因是：
If Not (rsUser.BOF And rsUser.EOF) Then
        rsUser.MoveLast
        rsUser.MoveFirst
        For i = 0 To (rsUser.RecordCount)
          '
          '
        Next i
End If
在      For i = 0 To (rsUser.RecordCount)和        Next i
之间缺少   rsUser.MoveNext这条语句

Answer 2

你这个问题只要一个for next就可以解决,也根本不要临时变量就可以解决,直接在print 中用rs!字段名...就可以了,另外转存记录集还可以用其直接的查询语句(语法没记，我现在在网吧上网)就可以,循环都不用,而且很快.