主题：图片列问题

下面的代码向表中写入照片，存在两个问题怎么解决：

1、只能上传一张图片，怎么能上传多张图片？

2、上传图片就会把原来的图片（应该是照片列中的文件名）覆盖掉，怎么能保留原来的，增加新增的？

 

 

 

With wb.AddInputGroup("form1","ipg22","文件上传")
                With .AddUploader("up1","资料",True)    'True表示可上传多个文件
                    .Accept = "image/*"   '允许使用相册和相机
                    '.AllowDelete = True '允许删除
                    '.Incremental = True '允许重复选择文件或连续拍照
                   
                End With
            End With
        End With
       
       
       
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "submit")
            .Add("btn1", "放弃", "button", "default.htm").Kind = 2
           
        End With
       
       
    Else
        With wb.AddMsgPage("","msgpage","编辑失败", "此信息可能已经被删除!") '提示
            .icon= "Warn"
            .AddButton("btn1","返回",PageURL) '生成返回原来页面的按钮
        End With
    End If
    'e.WriteString(wb.Build)
    ' Return
Else '保存编辑结果
    Dim dr As DataRow = DataTables("控缀保学").SQLFind("[_Identify]=" & PrimaryKey)
    If dr IsNot Nothing Then
        Dim nms() As String = {"年级","班级","班主任","学生姓名","学籍号","性别","出生日期","家长姓名","联系电话","地址","编号","省区","市县","乡镇","街道村","建档立卡","当前状态","健康状况","离校时间","辍学年级","辍学原因","年龄","民族","家长职业","去向","其它贫困"}
        For Each nm As String In nms
            dr(nm) = e.PostValues(nm)
        Next
       
       
       
        For Each key As String In e.Files.Keys
            If key = "up1" Then
                For Each fln As String In e.Files(key)
                    e.SaveFile(key, fln,"D:\xxsjk(学校数据库)\学校档案\控辍保学\" & fln)
                Next
                dr.Lines("资料") = e.Files(key)
            End If
        Next
        ''' '保存并生成增加成功提示页面
        dr.save()
        With wb.AddMsgPage("","msgpage","增加成功", "谢谢您!") '生成成功提示页
            .AddButton("btn1","返回筛选",PageURL) '生成返回原来页面的按钮
            .AddButton("btn1","返回主菜单","default.htm")
           
        End With
    End If
End If
e.WriteString(wb.Build)

参考：http://www.foxtable.com/mobilehelp/topics/0106.htm

老师好，有两个问题：

1、为什么编辑内容不能写入表中？

2、上传多张照片代码不会改。例子是专门的图片上传，我这个还有其它信息要写入表中，不知如何改代码了，请老师帮忙。

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:编辑函数.zip

老师您好，都能弹出，就是“帮扶”情不能写入，其它包括“资料”都是正常的。请帮忙给看看怎么改成能上传多张图片 。

这里都没有“帮扶”！

点确定按钮没反应，请老师指点。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:图片列问题.zip

web目录是不是d:\web？ajaxform.js文件是不是在d:\web\lib\ajaxform.js?js文件发上来看看。

老师，开发者工具知怎么用。

js文件是放在服务器D：\web\lib\文件夹中，文件名：ajaxform.js

文件内容：

function submitForm(){
    show("tst1",2000);
    var result = submitAjaxForm('form1','afterSubmit');
}

function afterSubmit(result){
    hide("tst1");
    if (result=='OK') {
        show("tst2");
        location="upload.htm";
    }
    else{
        show("tst3",2000);
    }
}

https://www.baidu.com/baidu?word=浏览器开发者工具