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

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

共有5015人关注过本帖树形打印复制链接主题：[求助]

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | 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(" "))

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 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:45:00 [显示全部帖子]

呃，可以这么理解。

不过你这段打印的代码完全不通啊，是完整了吗？

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/3/2 20:30:00 [显示全部帖子]

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

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

请上传例子。

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/3/7 22:45:00 [显示全部帖子]

1、excel模板要改一下 [修理内容] 改成 <修理内容>

2、编写报表事件报表事件BuildDetail

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

下一主题 >> << 上一主题

主题：[求助]