帮帮忙啊，急坏了！activereport报表问题啊？安装在WINDOWxp操作系统下时不会出现，但安装在winMe上时会出现的问题？

Question

问题如下：
1、现在我查询到的记录是三条，但是报表只列出了二条记录；
2、稍后我又查询到的记录是一条，结果报表是一条都没有？
注：我在WINDOWxp操作系统下安装时没有出现上面的问题，当我把系统安装在winMe上时，就出现上面的问题，帮帮忙啊，急坏了！

Answer 1

'调用报表处：
If chkScreen.Value = True Then
 rpt_SalR11.Restart
 rpt_SalR11.Show 1
End Ifrpt_SalR11报表中：
Private Sub ActiveReport_DataInitialize()
    Fields.Add "style"
    Fields.Add "color"
End SubPrivate Sub ActiveReport_FetchData(EOF As Boolean)
',fSkuNo,fStyCode,fStyDesc,fClrCode,fClrDesc,fSizCode,fUntPrice,fDiscount,fQty,fTtlAmt,fRe,fPayAmt1,fPayAmt2,fPayAmt3,fPayAmt4,fPayAmt5,fPayAmt6,fPayAmt7,fCrdType,fTaxAmt,fInvAmt
    If RsInv.Recordset.EOF Then Exit Sub
    Fields("style").Value = RsInv.Recordset!fStyCode & " " & RsInv.Recordset!fStyDesc
    Fields("color").Value = RsInv.Recordset!fClrCode & " " & RsInv.Recordset!fClrDesc
End SubPrivate Sub ActiveReport_Initialize()
    Dim sqlQ As String
    sqlQ = "select * from SALR11_RPT" & strUseCode & " ORDER BY FINVNO"
   
    Dim Conn As ADODB.Connection
    Set Conn = New ADODB.Connection
    Conn.ConnectionString = strConn
    Conn.Open
    
    RsInv.ConnectionString = Conn
    RsInv.CursorLocation = ddADOUseClient
    RsInv.CursorType = ddADOOpenKeyset
 
    RsInv.Source = sqlQ
End SubPrivate Sub gfInvNo_Format()
    lblTax.Caption = fTax
    txtNetAmt.Text = Format(CDbl(txtInvAmt.Text) - CDbl(txtTaxAmt.Text), "#,##0.00")
    If Trim(txtRe.Text) = "" Then
        lblRe.Visible = False
    Else
        lblRe.Visible = True
    End If
End SubPrivate Sub PageHeader_Format()End SubPrivate Sub ReportFooter_Format()
    lblDayTax.Caption = fTax
    txtDayNet.Text = Format(CDbl(txtDayAmt.Text) - CDbl(txtDayTaxAmt.Text), "#,##0.00")
End SubPrivate Sub ReportHeader_Format()
    lblDateTime.Caption = CStr(FormatDateTime(Now, vbGeneralDate))
    Dim strMskDate As String
    strMskDate = Rpt_SalR01Frm.txtInvDate.Text
    lblDate.Caption = Left(strMskDate, 2) & "/" & Mid(strMskDate, 3, 2) & "/" & Right(strMskDate, 4)
    lblRegister.Caption = strRegister & " " & strRegister_Desc
    lblStore.Caption = strCurrentStore
    lblRpt_Title.Caption = Trim(Rpt_SalR01Frm.lblHeader.Caption)
    lblCompany.Caption = strCompany
End Sub

Answer 2

加一下这个试试：
Private Sub ActiveReport_FetchData(eof As Boolean)
    Static i As Integer
    i = i + 1
    If i > RsInv.RecordCount Then
        eof = True
        Exit Sub
    Else
        eof = False
    End If
End Sub

Answer 3

你跟踪一下执行了几次Fetch_Data过程.

Answer 4

没有用，什么办法都想过了，是不是我安装的activereport的版本本来就存在这个问题，我是2.0版本的

Answer 5

试试用ActiveReport自带的DataControl控件连接数据库

Answer 6

对啊，我是用ActiveReport自带的ADO DataControl控件来连接数据库的