Dim sb As New StringBuilder
Dim lsta As New List(Of String)
For Each key As String In e.Files.Keys
sb.AppendLine(key & " 上传" & e.Files(key).Count & "个文件,分别是:</br>")
For Each fl As String In e.Files(key)
sb.AppendLine(fl & "<br>")
e.SaveFile(key,fl,ProjectPath & "Attachments\实测数据图片\" & fl) '保存接收到的文件
lsta.Add(Filesys.GetName(fl))
Next
sb.AppendLine("---")
Next
Dim dr As DataRow = Tables("输电线路参数数据表").Current.DataRow
dr.Lines("实测数据图片") = lsta
sb.AppendLine("以上文件服务器已正确接收并保存!")
lsta.Clear
e.WriteString(sb.ToString)
我是这样上传的图片，但是我连接数据库后，图片列啥都没有
加好友 
发短信
Post By：2021/3/29 10:44:00 [只看该作者]
