主题：移动开发，在输入页面中直接导入图片不能上传多个图片是什么原因。

 

那你就在红色代码那里新增行以及给各列赋值啊。自己加入msgbox弹出各个步骤看一下吧。

 

而且，1、你每次都select * from 表 查找，效率低下；2、你这种情况下（不加true）addnew的表，无法直接保存的啊。

请甜主帮助 改一下，我已绕蒙了。

Case "receive1.htm"
   
    msgbox(1)
    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)
            ls.add(fln)
        Next
    Next
   
    Dim nms() As String = {"厂家","反馈位置","反馈时间","图号","批次号","发货数量","反馈信息内容","反馈人","状态","备注","图片"}
    For Each nm As String In nms
       
        msgbox(e.PostValues(nm))
        dr7(nm) = e.PostValues(nm)
    Next
   
    msgbox(ls.count)
   
    dr7.lines("图片") = ls
    e.WriteString("OK")
   

此主题相关图片如下：无标题12.png

现在做好了，已经可以了，谢谢甜主；但是就是浏览的时候，怎么把ls（多文件名）一个一个的分出来，用AddImage顺序显示出来。请教甜主！

 .AddImage("./uploadfiles/" & dr("图片"),"./uploadfiles/" & dr("图片"))明显是错误的，应该用一个循环语句，但我不太清楚如何做。请教甜主。

你查找到对应的行之后，加入查找到的是dr，然后显示，代码如

 

太谢谢了，总算成功了。