主题：修改信息图片保存问题

……

Dim i As Integer = 0

    Dim a As String 

    For Each key As String In e.Files.Keys

        For Each fln As String In e.Files(key)

            i = i + 1

            a = dr("房产编号") & "-" & i & ".jpg"

            e.SaveFile(key, fln , ProjectPath & "Attachments\web\images\fcs\" & a)

            ls.add(a)

        Next

    Next

    dr.Lines("图片") = ls

    '保存并生成增加成功提示页面

    dr.save()

……