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
加好友 
发短信
Post By：2014/3/19 8:40:00 [显示全部帖子]
