以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  SaveFileDialog问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=128336)
--  作者：hzcaqjf
--  发布时间：2018/12/4 12:41:00
--  SaveFileDialog问题

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

dlg.Filter= "Excel文件|*.xls|文本文件|*.txt|Access文件|*.mdb" \'设置筛选器

If dlg.ShowDialog = DialogResult.Ok Then

   If dlg.Filter = "Excel文件|*.xls"  Then \'如果选择的是excel文件

      代码1

   ElseIf dlg.Filter = "文本文件|*.txt" Then  \'如果选择的是文本文件

      代码2

   End If

End If


我想一个table可选择保存为两种类型的文件

以上红色部份代码应该怎么写?
[此贴子已经被作者于2018/12/4 13:43:17编辑过]
--  作者：hzcaqjf
--  发布时间：2018/12/4 14:08:00
--  
已经解决问题:
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog 
dlg.Filter= "Excel文件|*.xls|文本文件|*.txt|Access文件|*.mdb" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then 
    If dlg.FileName.contains("xls") Then \'如果选择的是excel文件
      \'代码1
   ElseIf dlg.FileName.contains("txt") Then  \'如果选择的是文本文件
      \'代码2
   End If
End If