Foxtable(狐表)用户栏目专家坐堂 → ftp管理器


  共有1817人关注过本帖树形打印复制链接

主题:ftp管理器

帅哥哟,离线,有人找我吗?
shyilin
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:266 积分:2303 威望:0 精华:0 注册:2016/6/3 8:28:00
ftp管理器  发帖心情 Post By:2019/6/3 11:22:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下: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
图片点击可在新窗口打开查看

 回到顶部