Foxtable(狐表)用户栏目专家坐堂 → 文件类型筛选


  共有2984人关注过本帖树形打印复制链接

主题:文件类型筛选

帅哥哟,离线,有人找我吗?
倪惠明
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:546 积分:3903 威望:0 精华:0 注册:2011/5/24 15:35:00
文件类型筛选  发帖心情 Post By:2020/12/1 9:57:00 [只看该作者]

在文件类型筛选中,扩展名中可以用通配符吗?


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110494 积分:562348 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/12/1 10:08:00 [只看该作者]

什么地方的文件类型筛选?

 回到顶部
帅哥哟,离线,有人找我吗?
倪惠明
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:546 积分:3903 威望:0 精华:0 注册:2011/5/24 15:35:00
  发帖心情 Post By:2020/12/1 10:21:00 [只看该作者]

设计了一个导入窗口,按钮代码为:
If Tables("工程预算").Current Is Nothing Then
    MessageBox.Show("尚未录入工程预算项目不能导入预算文件!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If

Dim dr As Row = Tables("工程预算").current
If dr.DataRow.RowState = DataRowState.Added Then
    dr.save
End If

Dim dlg As New OpenFileDialog
dlg.Filter = "预算文件|*.doc;*docx;*.xls;*.xlsx;*.LGC;*.gcs;*.GBQ4;*.GBG9;*.gzb4;*.dwg;*.zjxm;*.jpg;*.gtb4;*.GBQ5"
If dlg.ShowDialog =DialogResult.OK Then
    Dim fl As String = dlg.FileName
    Dim r As Row = Tables("工程预算.送审预算").AddNew()
    r("文件名") = FileSys.GetName(fl) '写入文件名
    Dim p As String = IIF(r.DataRow.RowState = DataRowState.Added, "A#", "U#")'定义发送消息的行状态
    r.Save '必须先保存
    r.DataRow.SQLInsertFile("文件",fl) '插入文件
    r.DataRow.SQLSetValue("CRC值", CRCCheckFile(fl)) '保存crc检验值
    Dim msg As String = p & "送审预算" & "#" & r("_Identify")'发送消息给好友
    For Each bd As QQBuddy In QQClient.Buddies
        If bd.Online Then
            QQClient.Send(bd.name, msg)
        End If
    Next
End If
因工程造价软件不断升级,扩展名最后的数字GBQ4、GBQ5、GBQ6、GBQ7、不断变化,想用通配符一劳永逸解决。

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110494 积分:562348 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/12/1 10:35:00 [只看该作者]

可以的

dlg.Filter = "预算文件|*.doc*;*.xls*;*.GB*"

 回到顶部
帅哥哟,离线,有人找我吗?
倪惠明
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:546 积分:3903 威望:0 精华:0 注册:2011/5/24 15:35:00
  发帖心情 Post By:2020/12/1 10:42:00 [只看该作者]

谢谢

 回到顶部