主题：生成报表问题

Dim idx As Integer = Tables("综管").FindRow("客户沟通_是否收货 = False and 月份营运报表_日期<=#" & Date.today.adddays(-2) & "#", 0, False)

If idx > -1 Then
    Dim dr As Row = Tables("综管").Rows(idx)

    Dim Book As New XLS.Book(ProjectPath & "Attachments\确认是否已收到备件备件明细.xls")
    Dim fl As String = ProjectPath & "Reports\派送备件明细" & Format(Date.Now, "yyyyMMddHHmmss") & ".xls"
    Book.Build()
    Book.Save(fl)

End If

上面这段代码是找出符合条件的行然后生成报表，我放在计划管理每3分钟执行一次，但发现所生成的报表内容都是找出来的第一行的数据，不知道是什么问题，请大家帮忙看看，谢谢。