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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]筛选  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=132184)

--  作者：OKK
--  发布时间：2019/3/15 22:17:00
--  [求助]筛选

运行以下代码：

Dim str As String = "d:\\图片\\" & "陈杰" & "\\"
If filesys.DirectoryExists(str) = True Then
For Each ff As String In filesys.GetFiles(str)
output.show(ff)
Next
End If

得出以下结果：

d:\\图片\\陈杰\\tt6613y4.jpg
d:\\图片\\陈杰\\6a622k86.jpg
d:\\图片\\陈杰\\663d44h533.jpg
d:\\图片\\陈杰\\6s64b21.jpg

怎样才能筛选出1个，例如：

d:\\图片\\陈杰\\tt6613y4.jpg

--  作者：有点蓝
--  发布时间：2019/3/15 22:23:00
--
按什么条件筛选？如果知道具体的名称，直接按名称取文件不就行了

--  作者：OKK
--  发布时间：2019/3/15 22:46:00
--
不知道名称啊，只知道文件夹名称，而且也不知道数量

--  作者：有点蓝
--  发布时间：2019/3/15 22:54:00
--
那按照什么条件筛选啊，随便取一个？

--  作者：OKK
--  发布时间：2019/3/15 23:01:00
--
不是，是每个都需要用，放到以下代码中

Select Case e.Path
    Case "test.htm"
        Dim wb As New weui
        wb.AddForm("","form1","test.htm")
        With wb.AddInputGroup("form1","ipg1","客户资料")
            .AddInput("姓名","姓名","text").value = "舒淇"
            .AddInput("地点","地点","text").Value = "蒙古草原"
            .AddInput("日期","日期","date").value = #10/12/2012#
            With .AddUploader("up1","",True)
                .AllowAdd = False \'关闭文件上传功能
                .AddImage("tt6613y4.jpg")
                .AddImage("6a622k86.jpg")
                .AddImage("663d44h533.jpg")
                .AddImage("6s64b21.jpg")
            End With
        End With
        e.WriteString(wb.Build) \'生成网页
End Select

--  作者：有点蓝
--  发布时间：2019/3/15 23:05:00
--

With .AddUploader("up1","",True)
.AllowAdd = False \'关闭文件上传功能
Dim str As String = "d:\\图片\\" & "陈杰" & "\\"
If filesys.DirectoryExists(str) = True Then
For Each ff As String In filesys.GetFiles(str)
.AddImage(filesys.GetName(ff ))
Next
End If
End With

--  作者：OKK
--  发布时间：2019/3/15 23:18:00
--
这样可以，谢谢，，，但还有一个问题，为什么点击图片打开后，无法保存图片，只能保存网页

请问怎样才能有保存图片的功能？

--  作者：有点蓝
--  发布时间：2019/3/16 9:11:00
--
在手机里保存？点击到大图模式，然后按住不动，会弹出菜单，选“保存图片”

--  作者：OKK
--  发布时间：2019/3/16 11:59:00
--
可以保存了，谢谢

--  作者：OKK
--  发布时间：2019/3/18 14:21:00
--

不能保存图片

Dim fl As String = "d:\\web\\" & e.path
If filesys.FileExists(fl)
Dim idx As Integer = fl.LastIndexOf(".")
Dim ext As String = fl.SubString(idx)
Select Case ext
Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" \'这里加上了css扩展名
e.WriteFile(fl)
End Select
Else

Select Case e.Path
Case "upload.htm"
Dim wb As New weui
wb.AddForm("","form1","receive.htm")
With wb.AddInputGroup("form1","ipg1","上传文件")
With .AddUploader("ABC128","照片",True)
.AllowDelete = True \'允许删除
.Incremental = True \'允许重复选择文件或连续拍照
End With
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "button").Attribute= "" \'调用js函数上传
End With
wb.AddToast("","tst1", "正在上传",1)
wb.AddToast("","tst2", "上传成功",0)
wb.AddToast("","tst3", "上传失败",0).Icon= "warn"
wb.AppendHTML("<script src=\'./lib/ajaxform.js\'></script>") \'引入脚本文件
e.WriteString(wb.Build) \'生成网页
Case "receive.htm"
For Each key As String In e.Files.Keys
For Each fln As String In e.Files(key)
e.SaveFile(key,fln,"d:\\web\\uploadfiles\\" & fln) \'保存接收到的文件
Next
Next
e.WriteString("OK")
End Select
Select Case e.Path
Case "test.htm"
Dim wb As New weui
wb.AddForm("","form1","test.htm")
With wb.AddInputGroup("form1","ipg1","浏览文件")
.AddInput("姓名","姓名","text").value = "舒淇"
.AddInput("地点","地点","text").Value = "蒙古草原"
.AddInput("日期","日期","date").value = #10/12/2012#
With .AddUploader("up1","照片",True)
.AllowAdd = False \'关闭文件上传功能
\'AddImage的第一个参数为缩略图,第二个参数为原图
.AddImage("./uploadfiles/刘德华.jpg","./uploadfiles/刘德华.jpg")
End With
End With
e.WriteString(wb.Build) \'生成网页
End Select

End If

此主题相关图片如下：微信图片_20190318141837.png

此主题相关图片如下：微信图片_20190318141827.png

长按图片总框着照片那两个字，我看了代码也没错，到底是哪里错了？