Foxtable(狐表)用户栏目专家坐堂 → 多图片


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

主题:多图片

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


加好友 发短信
等级:三尾狐 帖子:603 积分:4096 威望:0 精华:0 注册:2019/11/14 23:06:00
多图片  发帖心情 Post By:2021/6/27 17:53:00 [只看该作者]

我的图片列有三个图片的名称,该如何分别获得每个图片的名称
图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20210627175147.png
图片点击可在新窗口打开查看

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


加好友 发短信
等级:三尾狐 帖子:603 积分:4096 威望:0 精华:0 注册:2019/11/14 23:06:00
  发帖心情 Post By:2021/6/27 21:04:00 [只看该作者]

我现在用的是字符串集For Each v As String In DataTables("箱包补货").GetValues("图片")
但是不知道该怎么分成3个,比如,我想显示第一个名字的
[此贴子已经被作者于2021/6/27 21:05:05编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107880 积分:548763 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/6/27 21:49:00 [只看该作者]

For Each dr as datarow In DataTables("箱包补货").datarows
for each s as string in dr.lines("图片")
msgbox(s)
……


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


加好友 发短信
等级:三尾狐 帖子:603 积分:4096 威望:0 精华:0 注册:2019/11/14 23:06:00
  发帖心情 Post By:2021/6/28 3:32:00 [只看该作者]

这里我还是不太明白,我按照你给的代码测试了一下,会把这个列里面的3个图片名称依次显示,但是我是想通过代码实现把图片显示出来
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("./images/001.jpg")
                .AddImage("./images/002.jpg")
                .AddImage("./images/003.jpg")
                .AddImage("./images/004.jpg")
                .AddImage("./images/005.jpg")
                .AddImage("./images/006.jpg")
                .AddImage("./images/007.jpg")
                .AddImage("./images/008.jpg")
                .AddImage("./images/009.jpg")
                .AddImage("./images/010.jpg")
                .AddImage("./images/011.jpg")
                .AddImage("./images/012.jpg")

            End With
        End With
       
e.WriteString(wb.Build) '生成网页
End
Select

但是他是依次显示的,这里该怎么操作呢

 回到顶部
帅哥,在线噢!
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107880 积分:548763 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/6/28 8:32:00 [只看该作者]

           With .AddUploader("up1","",True)
                .AllowAdd = False 
'
关闭文件上传功能
For Each dr as datarow In DataTables("箱包补货").datarows
for each s as string in dr.lines("图片")
.AddImage(s)
next
next
End With

 回到顶部