主题：报表标记为什么不能这样用?

'选择全表

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

Next

Book.Build()

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

Dim Proc As New Process

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

Proc.Start()