继续请教 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

主题：继续请教