Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]


  共有4287人关注过本帖树形打印复制链接

主题：[求助]
帅哥哟，离线，有人找我吗？
tungwun
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：423 积分：4231 威望：0 精华：0 注册：2009/5/16 21:42:00 		[求助]  发帖心情 Post By：2014/3/2 19:07:00 [只看该作者]

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
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/3/2 19:24:00 [只看该作者]

 这个意思？

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 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 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
 回到顶部
帅哥哟，离线，有人找我吗？
tungwun
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：423 积分：4231 威望：0 精华：0 注册：2009/5/16 21:42:00 		[求助]  发帖心情 Post By：2014/3/2 19:33:00 [只看该作者]

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

Dim  Ls As New List(Of String )
For Each r As DataRow In DataTables("TAXI").Select("修理內容 Is Not Null")
    Ls.AddRange(r("修理內容").split(" "))
Next
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/3/2 19:45:00 [只看该作者]

 呃，可以这么理解。

 不过你这段打印的代码完全不通啊，是完整了吗？
 回到顶部
帅哥哟，离线，有人找我吗？
tungwun
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：423 积分：4231 威望：0 精华：0 注册：2009/5/16 21:42:00 		  发帖心情 Post By：2014/3/2 20:09:00 [只看该作者]

请问如何修改?

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
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/3/2 20:30:00 [只看该作者]

 呃，关键是我不知道你想干嘛啊。

 根据 TAXI單 模板 生成报表，然后往报表的第一列依次写入修理内容？逻辑很有问题吧？

 请上传例子。
 回到顶部
帅哥哟，离线，有人找我吗？
tungwun
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：423 积分：4231 威望：0 精华：0 注册：2009/5/16 21:42:00 		[求助]  发帖心情 Post By：2014/3/7 12:40:00 [只看该作者]

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

打印换成:
修理空调
入环保雪种
入134a泵油
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:taxi單.xls
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47448 积分：251048 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2014/3/7 15:59:00 [只看该作者]

这个只能用标记与事件解决。


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


 
 回到顶部
帅哥哟，离线，有人找我吗？
tungwun
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：423 积分：4231 威望：0 精华：0 注册：2009/5/16 21:42:00 		[求助]  发帖心情 Post By：2014/3/7 16:47:00 [只看该作者]

 运行出现错误信息?


.NET Framework 版本：2.0.50727.5477
Foxtable 版本：2014.3.8.1
错误所在事件：Excel报表,BuildDetail
详细错误信息：
索引在陣列的界限之外。
 回到顶部
帅哥哟，离线，有人找我吗？
tungwun
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：423 积分：4231 威望：0 精华：0 注册：2009/5/16 21:42:00 		[求助]  发帖心情 Post By：2014/3/7 22:18:00 [只看该作者]

运行代码出现错误信息?


.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
 回到顶部
总数 12 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 5 次数据查询