Foxtable(狐表)用户栏目专家坐堂 → ftp直接显示


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

主题:ftp直接显示

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/8/5 16:03:00 [显示全部帖子]

为什么不弄成图片列?列窗口不是可以显示的么?

 

http://www.foxtable.com/help/topics/0086.htm

 


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/8/5 16:26:00 [显示全部帖子]

 右边有列窗口的

 

http://www.foxtable.com/help/topics/0073.htm

 


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/8/5 17:13:00 [显示全部帖子]

Drawcell事件加入代码

 

If e.Col.Name = "照片" AndAlso e.Row.IsNull("照片") = False Then
    e.StartDraw()
    e.Graphics.DrawImage(getimage(projectPath & "RemoteFiles/" & FileSys.GetName(e.Row("照片"))), e.x + 1,e.y + 1, 100, 85)
    e.EndDraw()
End If

 

AfterOpenProject事件,把所有图片下载下来

 

Dim ftp1 As new ftpclient
ftp1.host="ns18.mfdns.com"
ftp1.Account = "fo1xtable"
ftp1.password = "WJfoxtable"
ftp1.OpenManager
Dim f1,f2 As String
For Each r As Row In Tables("表A").Rows
    f1=r("照片")
    f2=FileSys.GetName(R("照片"))
    If ftp1.Download(f1, projectPath & "RemoteFiles/" & f2) = True Then
        Messagebox.show("下载完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Else
        Messagebox.show("下载失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    End If
Next


 回到顶部