写入多张图片 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 写入多张图片

共有2658人关注过本帖树形打印复制链接主题：写入多张图片

nxqtxwz

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1495 积分：12175 威望：0 精华：0 注册：2013/3/19 16:41:00

写入多张图片 发帖心情

Post By：2020/4/14 14:59:00 [只看该作者]

老师您好，想在在编辑函数中实现图片列可以上传多张图片并不删除以前的图片，点确定按钮后不动了，请老师给看看。

[此贴子已经被作者于2020/4/18 18:22:54编辑过]

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：109505 积分：557193 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/4/14 15:21:00 [只看该作者]

js文件发上来

nxqtxwz

小大 3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1495 积分：12175 威望：0 精华：0 注册：2013/3/19 16:41:00

Post By：2020/4/14 15:28:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:lib.zip

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：109505 积分：557193 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/4/14 17:08:00 [只看该作者]

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)

Dim lst As List(of String) = dr.Lines("资料")

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)

lst.Add(fln)

End If

dr.Lines("资料") = lst

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

dr.save()