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()
加好友 
发短信
Post By：2020/4/14 15:21:00 [显示全部帖子]
