在这段代码的基础上怎么修改一下 可以让用户自由选择导出的路径 Post By:2014/3/19 8:39:00 [显示全部帖子]
Dim tm As String = ProjectPath & "Attachments\供应商基本概况.doc" '指定模板文件 Dim fl As String = ProjectPath & "Reports\供应商基本概况.doc" '指定目标文件 Dim wrt As New WordReport(Tables("供应商资料"),tm,fl) '定义一个WordReport wrt.Build() '逐行生成报表 wrt.Show() '显示报表