主题：继续请教

Dim tm As String  = ProjectPath & "Attachments\" & mbname '指定模板文件

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

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

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

    Dim fl As String = dlg.FileName '指定目标文件

    Dim wrt As New WordReport(dt,tm,fl) '定义一个WordReport

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

    wrt.Show()

End If