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

1、对于人员信息表，在制作了模板后发现只能输出选定行的员工信息（word模板刚好为一页），如何做到一次性输出全部员工的信息在一个word文档中？

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog

dlg.Filter= "Word文件|*.doc|Word文件|*.docx" '设置筛选器

dlg.InitialDirectory = ProjectPath & "Reports\3人员管理\人员信息管理\"

If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮

MessageBox.Show("你要保存为:" & dlg.FileName,"提示") '提示用户选择的文件

Else Return

End If

Dim tm As String = ProjectPath & "Attachments\人员信息管理.doc" '指定模板文件

Dim fl As String = dlg.FileName

Dim wrt As New WordReport(Tables("人员信息管理"),tm,fl) '定义一个WordReport

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

wrt.Show() '显示报表

2、我发现在引用有多行信息（备注列）的某单元格内容时（利用表属性采用 & vbcrlf & 代码换行设置了默认文本内容），在word报表上并不是以换行形式出现的，而是几个空格，这就造成了数据排列比较乱，需要重新排版，这个是什么原因，如何解决(例子如下所示)

表格中

AAAA

word中

AAAA AA

AA AAAA

AAAA

老师，第一个已经解决了，但是第二个问题还是没怎么弄懂，列标记是哪里，回车是怎么加呢，我设置了窗口利用文本框输入，文本框里是正常换行，但是变成word输出就变成一行了，换行变成了几个空格

老师，我段落格式是首行缩进2字符的，这样加入回车后的确是换行了，但是换行后不是缩进2字符，而是一个空格，有办法对齐吗，没办法，用word就是穷讲究，最好傻瓜一样不用重新排版图片点击可在新窗口打开查看

老师之前在忙其他模块~~~现在把实例发上来~~~

附上模板：

然后是程序，里面有一个窗口：

下载信息 [文件大小：下载次数： ]
点击浏览该文件:word测试.table

[此贴子已经被作者于2017/5/2 19:20:38编辑过]

。。word怎么上传不了~~~压缩了也失败~~我再试试

下载信息 [文件大小：下载次数： ]
点击浏览该文件:word测试.zip

感谢老师~~~不过还有一个问题，其中有个报表生成的时候需要替换的[备注]列来自表B，表A和表B是关联表，表A是父表，模板引用好解决，但是这个这个替换时怎么引用~~

wrt.ReplaceOne("[备注]",r("备注").replace(chr(10)," "))

老师，我做了个新的测试程序，设置了关联表，同时窗口用了单行输出和全部输出两种输出模式~~~关联表情况下怎么替换还请老师指导~~~

之前的代码在没有关联表的窗口中已经成功了~~~但是有一个小问题~~就是生成的word第一个页面没有成功替换过来，第二页开始都成功了~~

这是什么原因呢~~~还请老师帮忙指导下图片点击可在新窗口打开查看

下载信息 [文件大小：下载次数： ]
点击浏览该文件:word测试.zip

主题：关于WORD报表