以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  在WeUI实例中，怎么打开并查看已经上传的图片  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=108525)
--  作者：lanbor
--  发布时间：2017/10/24 15:59:00
--  在WeUI实例中，怎么打开并查看已经上传的图片
基本情况：
已经通过地址：http://www.foxtable.com/mobilehelp/scr/0251.htm　学习
用相关功能把设备图片上传到对应数据表(item99)记录的：img01 列(备注型->并扩展为图片)，实图放在: .\\photo\\文件夹中.

请教：
如何将他们取出来并查看：近似于地址：http://www.foxtable.com/mobilehelp/scr/0091.htm 的查看方式。
如下所示：
If e.PostValues.count = 0 Then
    Dim dr As DataRow = DataTables("item99").SQLFind("[_Identify]=" & PrimaryKey)
    If dr IsNot Nothing Then
        wb.AddForm("","form1","vimg1.htm?od01=1")
        With wb.AddInputGroup("form1","ipg1","刀具图片查阅")
            .AddHidenValue("ibh00","000")  \'一个隐臧列, 主要用于触发是否有输入动作的判断语句
            With  .Addinput("ibh01","类别","text")
                .value=dr("ibh01")
                .readonly=True
            End With
            With   .Addinput("imc01","名称","text")
                .Value=dr("imc01")
                .readonly=True
            End With
            With .Addinput("igg01","规格","text")
                .Value=dr("igg01")
                .Readonly=True
            End With
            With .AddUploader("img01","照片",True)
                .AllowDelete = True \'允许删除
                .AllowAdd=False \'关闭上传功能
                .Incremental = True \'允许 重复选择文件或连续拍照
’-------------这里应该怎么写，我就不懂了，请教专家指点，谢谢！
            End With
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .add("btn1","返回","",PageURL).kind=1
        End With
    End If
    e.WriteString(wb.Build) \'生成网页
End If
[此贴子已经被作者于2017/10/24 16:01:54编辑过]
--  作者：有点甜
--  发布时间：2017/10/24 16:36:00
--  

如果要把所有的显示，参考

 

Dim path As String = fl & "photo\\"
For Each File As String In FileSys.GetFiles(path)
    .AddImage("./photo/" & filesys.GetName(file))
Next

 
--  作者：lanbor
--  发布时间：2017/10/24 17:21:00
--  全部图片能看，再请教一下。
谢谢专家：有点甜。
全部图片能看了，再请教一下。
我还希望：
当用户点到某一条记录的时候，只看这行记录所对应的相片，
但图片也不限于1张。

请问以关键地方应该如何变化：（列名称为：img01)

                Dim path As String = ".\\photo\\"
                For Each File As String In FileSys.GetFiles(path)
                    .AddImage("./photo/" & filesys.GetName(file))
                Next
--  作者：有点甜
--  发布时间：2017/10/24 17:55:00
--  

1、这样处理上传的文件，一行保存多张图片

 

http://www.foxtable.com/mobilehelp/scr/0060.htm

 

2、循环某一行的图片，循环显示即可，如

 
                For Each file As String in dr.Lines("图片")

                    .AddImage("./photo/" & file)
                Next
--  作者：lanbor
--  发布时间：2017/10/24 18:42:00
--  感谢有点甜指教，OK了
我刚才就是想上传图片时用了这个词：dr.Lines("图片")。
多谢多谢指教！
[此贴子已经被作者于2017/10/24 18:44:14编辑过]