Foxtable(狐表)用户栏目专家坐堂 → 在这段代码的基础上怎么修改一下 可以让用户自由选择导出的路径


  共有3109人关注过本帖平板打印复制链接

主题:在这段代码的基础上怎么修改一下 可以让用户自由选择导出的路径

帅哥哟,离线,有人找我吗?
xiaofengfeng
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:152 积分:1051 威望:0 精华:0 注册:2014/2/20 10:27:00
在这段代码的基础上怎么修改一下 可以让用户自由选择导出的路径  发帖心情 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() '显示报表

 回到顶部