- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- EXCEL打印错误 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=13573)
-- 发布时间：2011/10/17 23:38:00
-- EXCEL打印错误
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)
Next
Dim Ls As New List(Of String )
For Each r As DataRow In DataTables("TAXI").Select("修理內容 Is Not Null")
Ls.AddRange(r("修理內容").split(" "))
Next
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
-- 发布时间：2011/10/17 23:41:00
--
提示什么？
-- 发布时间：2011/10/18 9:56:00
-- 代码错误
代码错误
此主题相关图片如下：代碼錯誤.jpg
-- 发布时间：2011/10/18 10:18:00
--
错误提示的意思是ls变量没有定义。
你在执行这行代码的时候：
For n As Integer = 0 To Ls.Count-1 \'向工作表的單元格中設置值
并没有定义变量ls