以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  在这段代码的基础上怎么修改一下 可以让用户自由选择导出的路径  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=47879)

--  作者：xiaofengfeng --  发布时间：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() \'显示报表

--  作者：Bin --  发布时间：2014/3/19 8:40:00 --   http://www.foxtable.com/help/topics/0329.htm Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog  dlg.FileName= "供应商基本概况.doc" \'设置筛选器 If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮     Dim tm As String  = ProjectPath & "Attachments\\供应商基本概况.doc" \'指定模板文件 Dim wrt As New WordReport(Tables("供应商资料"),tm,dlg.FileName) \'定义一个WordReport wrt.Build() \'逐行生成报表 wrt.Show() \'显示报表 End If