[求助] - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

EXCEL打印错误! 請問如何修改??

Dim Book As New XLS.Book(ProjectPath & "Attachments\TAXI單.xls")

Dim fl As String = ProjectPath & "Reports\TAXI單.xls"

For n As Integer = 0 To Ls.Count-1 '向工作表的單元格中設置值

Sheet(n, 0).Value = Ls(n)

Dim Ls As New List(Of String )

For Each r As DataRow In DataTables("TAXI").Select("修理內容 Is Not Null")

Ls.AddRange(r("修理內容").split(" "))

Dim App As New MSExcel.Application

Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)

Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)

Ws.PrintOut

App.Quit

这个是指(修理内容文字出现空格自动跳到下一行?

Dim Ls As New List(Of String )

For Each r As DataRow In DataTables("TAXI").Select("修理內容 Is Not Null")

Ls.AddRange(r("修理內容").split(" "))

请问如何修改?

Dim Book As New XLS.Book(ProjectPath & "Attachments\TAXI單.xls")

Dim fl As String = ProjectPath & "Reports\TAXI單.xls"

For n As Integer = 0 To Ls.Count-1 '向工作表的單元格中設置值

Sheet(n, 0).Value = Ls(n)

Dim Ls As New List(Of String )

For Each r As DataRow In DataTables("TAXI").Select("修理內容 Is Not Null")

Ls.AddRange(r("修理內容").split(" "))

Dim App As New MSExcel.Application

Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)

Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)

Ws.PrintOut

App.Quit

Execl打印[修理内容]加逗号自动换下一行?如:修理空调,入环保雪种,入134a泵油

打印换成:

修理空调

入环保雪种

入134a泵油

下载信息 [文件大小：下载次数： ]
点击浏览该文件:taxi單.xls

运行出现错误信息?

.NET Framework 版本：2.0.50727.5477

Foxtable 版本：2014.3.8.1

错误所在事件：Excel报表,BuildDetail

详细错误信息：

索引在陣列的界限之外。

运行代码出现错误信息?

.NET Framework 版本：2.0.50727.5477

Foxtable 版本：2014.3.8.1

错误所在事件：Excel报表,BuildDetail

详细错误信息：

索引在陣列的界限之外。

1、做个打印按钮：
Dim Book As New XLS.Book("c:\book5.xls")
For i as integer = 1 to 4
     Book.Marks.Add("标记" & i,"")
next
Book.Build()
Book.Save("c:\reports\test.xls")
Dim Proc As New Process
Proc.File = "c:\reports\test.xls"
Proc.Start()

2、报表事件BuildDetail：

Select Case e.Book.TempLate
   case ”book5“
       For i as integer = 1 to 4
              e.Book.Marks("标记" & i) = ""
      next
      if e.datarow isnot nothing Andalso e.datarow.Isnull("列名") = False then
           dim vals() = e.datarow("列名").Split(",")
           Dim cnt = Math.Min(4,vals.length)
           For i as integer = 1 to cnt
               e.Book.Marks("标记" & i) = "" = vals(i)
           next
      end if
end select

谢谢:这2个代码可以做到自动换下一行。

1、做一個按扭：

Dim Book As New XLS.Book("c:\book5.xls")

For i as integer = 1 to 4

Book.Marks.Add("標記" & i,"")

Book.Build()

Book.Save("c:\reports\test.xls")

Dim Proc As New Process

Proc.File = "c:\reports\test.xls"

Proc.Start()

2、報表事件BuildDetail：excel模板要改一下 [修理内容] 改成 <修理内容>

Select Case e.Book.TempLate

Case "book5"

If e.DataRow IsNot Nothing AndAlso e.DataRow.Isnull("修理內容") = False Then

e.Book.Marks("修理內容") = e.DataRow("修理內容").Replace(",", vbcrlf)

End If

End Select

[此贴子已经被作者于2014-3-8 9:44:04编辑过]

主题：[求助]