报表标记为什么不能这样用? - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 报表标记为什么不能这样用?

共有11311人关注过本帖树形打印复制链接主题：报表标记为什么不能这样用?

布莱克朱

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：623 积分：3897 威望：0 精华：0 注册：2011/8/3 22:13:00

报表标记为什么不能这样用? 发帖心情

Post By：2012/12/5 21:35:00 [只看该作者]

'选择全表

Tables("窗口1_Table1").Select(0, 0, Tables("窗口1_Table1").Rows.Count - 1, Tables("窗口1_Table1").Cols.Count - 1)

Dim Book As New XLS.Book(ProjectPath & "Attachments\月费用明细.xls")

Book.Marks.Add("_UserName",_UserName)

Dim Customers As List(Of String)

Customers = Tables("窗口1_Table1").DataTable.GetUniqueValues("", "业务编号")

Dim dr As DataRow

For Each Customer As String In Customers

dr = DataTables("业务总账").Find("业务编号='" & Customer & "'")

If dr IsNot Nothing Then

Book.Marks.Add("经营单位",dr("经营单位"))

Book.Marks.Add("业务编号",dr("业务编号"))

Book.Marks.Add("提单号",dr("提单号"))

Book.Marks.Add("报关单号",dr("报关单号"))

End If

Book.Build()

Book.Save(ProjectPath & "Reports\月费用明细.xls")

Dim Proc As New Process

Proc.File = ProjectPath & "Reports\月费用明细.xls"

Proc.Start()

e-png

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1695 积分：10725 威望：0 精华：0 注册：2009/10/25 16:45:00

Post By：2012/12/5 21:54:00 [只看该作者]

到底那个标记不能“这样”用？恐怕你得提供一个实例，不然非经常且熟练掌握标记的人，很难看的出什么。

zerov

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：867 积分：6210 威望：0 精华：0 注册：2012/11/24 20:44:00

Post By：2012/12/5 22:01:00 [只看该作者]

刚入门，还有点云里雾里

狐狸爸爸

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47511 积分：251479 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2012/12/6 8:32:00 [只看该作者]

下面的代码有问题：

For Each Customer As String In Customers
    dr = DataTables("业务总账").Find("业务编号='" & Customer & "'")
    If dr IsNot Nothing Then
        Book.Marks.Add("经营单位",dr("经营单位"))
        Book.Marks.Add("业务编号",dr("业务编号"))
        Book.Marks.Add("提单号",dr("提单号"))
        Book.Marks.Add("报关单号",dr("报关单号"))
    End If
Next

要么不错，即使不出错，标记也只是最后一个业务编号的内容。

应该结合事件使用，可以看看这里的示例一：

http://www.foxtable.com/help/topics/1955.htm