以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  继续请教  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=75843)
--  作者：hbhb
--  发布时间：2015/10/15 17:30:00
--  继续请教
大师：为何如下代码不能生成报表？通过模板生成的目标文件自定，如何写代码？
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
--  作者：大红袍
--  发布时间：2015/10/15 17:33:00
--  
报什么错。
--  作者：hbhb
--  发布时间：2015/10/15 18:05:00
--  
另存时，如果不小心选择了，Attachments文件夹中的模板文件，就报错了，如何避免此情况？
--  作者：大红袍
--  发布时间：2015/10/15 18:13:00
--  
Dim tm As String  = ProjectPath & "Attachments\\"
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Word文件|*.doc|Excel文件|*.xls" \'设置筛选器
dlg.Filter= "Word文件|*.doc|Excel文件|*.xls" \'设置筛选器
Dim fl As String
Do While True
    If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
        fl = dlg.FileName
        If fl.Contains(tm) Then
            msgbox("不能选择Attachments")
        Else
            msgbox("生成报表")
            Exit Do
        End If
    Else
        Exit Do
    End If
Loop
--  作者：hbhb
--  发布时间：2015/10/15 18:24:00
--  
谢谢！小狐的效率如此低下，一天就写了两个函数！这样下去钓鱼的时间哪里去了？高手们为何不能生产一些可以组装的零部件呀？
如有此代码库多好呀！！！！！，那样只要一把扳手，万能胶一些工具箱，那是多么幸福！！！！！