主题：生成报表问题

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分钟执行一次，但发现所生成的报表内容都是找出来的第一行的数据，不知道是什么问题，请大家帮忙看看，谢谢。

此主题相关图片如下：1.png


此主题相关图片如下：2.png

如图，所有内容都是所找到的第一行时生成的数据

有论坛的朋友在另外一个群给予指导了，遇到同样问题的可以到那个贴去看看，感谢程老师和lin_hailun的指导。

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=27849&page=1&star=4