此主题相关图片如下:22222.png
Dim ftp As FTPClient=Functions.Execute("照片服务器")
Dim st As String= "/" & Tables("表a").Current("第一列") & "/维修单照片"
Dim st1 As String
Dim fls As List(of String)=ftp.GetFileList(st)
For Each fl As String In fls
If fls.Count=1 Then
st1= st & "/" & fl
ElseIf fls.Count>1 Then
st1= st1 & st & "/" & fl & vbcrlf
Else
st1=""
End If
Next
Tables("表a").Current("第四列")=st1
Tables("表a").Current.DataRow.Save
老师帮我改改呢 怎么老是报错呢
此主题相关图片如下:3333.png