主题：图片列问题

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

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)