- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 多图片 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=169713)
-- 发布时间：2021/6/27 17:53:00
-- 多图片
我的图片列有三个图片的名称，该如何分别获得每个图片的名称
此主题相关图片如下：微信图片_20210627175147.png
-- 发布时间：2021/6/27 21:04:00
--
我现在用的是字符串集For Each v As String In DataTables("箱包补货").GetValues("图片")
但是不知道该怎么分成3个，比如，我想显示第一个名字的
[此贴子已经被作者于2021/6/27 21:05:05编辑过]
-- 发布时间：2021/6/27 21:49:00
--
For Each dr as datarow In DataTables("箱包补货").datarows
for each s as string in dr.lines("图片")
msgbox(s)
……
-- 发布时间：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
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
但是他是依次显示的，这里该怎么操作呢
-- 发布时间：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