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

左栏'); } else{ document.write('关闭左栏'); } }catch(e){alert(e);}

风格

恢复默认设置
展区
文件集浏览
 图片集浏览
 Flash浏览
 音乐集浏览
 电影集浏览

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]word报表怎么打印明细表？

共有2555人关注过本帖树形打印复制链接主题：[求助]word报表怎么打印明细表？

jframe

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

加好友

发短信

等级：幼狐帖子：111 积分：1354 威望：0 精华：0 注册：2012/10/18 14:22:00

[求助]word报表怎么打印明细表？ 发帖心情

Post By：2015/11/23 15:14:00 [只看该作者]

这样的关联表要怎么做word打印？

此主题相关图片如下：123123123.png

son出口情况一览_tbl1 是父表

son出口情况一览_tbl2 是子表

怎么同时显示父子表，子表如何取多行数据？

Dim wbr As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")

Dim tm As String = ProjectPath & "Attachments\出口货物报关单.doc"

Dim fl1 As String = ProjectPath & "Reports\出口货物报关单.doc"

Dim fl2 As String = ProjectPath & "Reports\出口货物报关单.pdf"

Dim wrt As New WordReport(Tables("son出口情况一览_tbl1"),tm,fl1) '定义一个WordReport

wrt.Build() '逐行生成报表

wrt.SaveToPDF(fl2) '保存为PDF文件

wrt.Quit() '退出

wbr.AddRess = fl2

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/11/23 15:48:00 [只看该作者]

不行，无法循环打印子表，只能固定n行的子表。

http://www.foxtable.com/help/topics/2886.htm

http://www.foxtable.com/help/topics/2887.htm

jframe

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

加好友

发短信

等级：幼狐帖子：111 积分：1354 威望：0 精华：0 注册：2012/10/18 14:22:00

Post By：2015/11/23 18:36:00 [只看该作者]

袍哥,可以用了,

但是还有一个问题,我有两个临时表,

求关联代码

DataTables("主表").LoadChildren("从表","出口编号","编号")

没有用,要手动设置才能用.

jframe

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

加好友

发短信

等级：幼狐帖子：111 积分：1354 威望：0 精华：0 注册：2012/10/18 14:22:00

Post By：2015/11/23 18:52:00 [只看该作者]

我自己已经解决谢谢

http://www.foxtable.com/help/index.html?n=0089.htm

lyfxybc

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

加好友

发短信

等级：六尾狐帖子：1290 积分：9820 威望：0 精华：0 注册：2012/9/19 21:13:00

Post By：2015/11/24 8:22:00 [只看该作者]

word如何循环的

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/11/24 9:14:00 [只看该作者]

以下是引用lyfxybc在2015/11/24 8:22:00的发言：
word如何循环的

word无法循环。不过你可以先生成excel报表，然后再拷贝到word

Dim wapp As New MSWord.Application
Dim eApp As New MSExcel.Application

try
    Dim Wb As MSExcel.WorkBook = eApp.WorkBooks.Open("d:\test.xls")
    Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1) '指定要复制的工作表
    Ws.UsedRange.Copy

    Dim fileName = "d:\test.doc"
    Dim doc = wapp.Documents.Open(fileName)
    wapp.ActiveWindow.Selection.WholeStory
    wapp.ActiveWindow.Selection.MoveRight(Unit:=1, Count:=1)
    wapp.ActiveWindow.Selection.TypeParagraph
    wapp.ActiveWindow.Selection.paste
    wapp.Visible = True
catch ex As exception
    msgbox(ex.message)
    wapp.Quit
finally
    eapp.quit
End try

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

主题：[求助]word报表怎么打印明细表？