- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 写入多张图片 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=148737)
-- 发布时间：2020/4/14 14:59:00
-- 写入多张图片
老师您好，想在在编辑函数中实现图片列可以上传多张图片并不删除以前的图片，点确定按钮后不动了，请老师给看看。
[此贴子已经被作者于2020/4/18 18:22:54编辑过]
-- 发布时间：2020/4/14 15:21:00
--
js文件发上来
-- 发布时间：2020/4/14 15:28:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:lib.zip |
-- 发布时间：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)
Next
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)
Next
lst.Add(fln)
End If
Next
dr.Lines("资料") = lst
\'\'\' \'保存并生成增加成功提示页面
dr.save()
-- 发布时间：2020/4/14 17:53:00
--
---------------------------
错误
---------------------------
编译错误:\'fln\' is not declared. It may be inaccessible due to its protection level.
错误代码：lst.Add(fln)
---------------------------
确定
---------------------------
我看fln申明了怎么还显示这个错误呢
[此贴子已经被作者于2020/4/14 17:57:35编辑过]
-- 发布时间：2020/4/14 20:00:00
--
放错地方了
If key = "up1" Then
For Each fln As String In e.Files(key)
e.SaveFile(key, fln,"D:\\xxsjk(学校数据库)\\学校档案\\控辍保学\\" & fln)
lst.Add(fln)
Next
End If
-- 发布时间：2020/4/14 21:13:00
--
老师您好，程序编译都没问题，但图片选好或照片拍好后点确定没有反应。
-- 发布时间：2020/4/14 21:47:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:移动试验.zip |
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:ajaxform.zip |