以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  生成报表问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=28047)
--  作者：冰31脚
--  发布时间：2013/1/17 10:25:00
--  生成报表问题

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分钟执行一次，但发现所生成的报表内容都是找出来的第一行的数据，不知道是什么问题，请大家帮忙看看，谢谢。
--  作者：冰31脚
--  发布时间：2013/1/17 10:26:00
--  

图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：2.png
图片点击可在新窗口打开查看
如图，所有内容都是所找到的第一行时生成的数据
--  作者：冰31脚
--  发布时间：2013/1/17 10:38:00
--  

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

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