Foxtable(狐表) → 用户栏目 → 专家坐堂 → ftp上传并绑定


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

主题：ftp上传并绑定
帅哥哟，离线，有人找我吗？
blackzhu
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00 		ftp上传并绑定  发帖心情 Post By：2016/5/12 11:58:00 [显示全部帖子]

我在本地有一个图片文件夹 里面分别有 A1.JPG,A2.JPG,A3.jpg,B1,B2,B3 三张图片


有一张表  有一个 Name 列 有一列图片列  并绑定图片浏览器控件.

NAME 的数据:

A
B

我想利用按钮将图片文件夹内 跟Name 相对应的数据前缀的图片上传到FTP相对应的图片文件夹内,并储存在图片列内,同时在图片浏览器空间内显示

也就是A的数据 有A1 A2 A3 三张图片
         B            b1,b2,b3 三张


多图片显示,FTP存储.
 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2016/5/12 12:55:00 [显示全部帖子]

Dim Val As String 
For Each r As Row In Tables("成品管理").Rows
    r("图片") = Nothing
    If ftp.FileExists("\成品图片\" & r("款号") & ".jpg") Then
        If Val > "" Then
            Val = Val & vbCrLf
        End If
        Val = Val & "\成品图片\" & r("款号") & ".jpg"
        r("图片") = Val
    End If
Next
MessageBox.Show(Val)
flm.AddFile(Val)

我这个代码有啥问题?
 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2016/5/12 13:24:00 [显示全部帖子]

Dim flm = Forms("成品管理").Controls("PictureViewer1")
Dim Val As String
Dim po As String
Dim dls As List(of String)
dls = ftp.GetDetailList("\成品图片")
For Each r As Row In Tables("成品管理").Rows
    r("图片") = Nothing
    For Each dl As String In dls
        po= dl.split("*")(0).split(".")(0)
        If r("款号") Like "%" & po & "%" Then
            If Val > "" Then
                Val = Val & vbCrLf
            End If
            Val = Val & "\成品图片\" & dl.split("*")(0)
        End If
    Next
    r("图片") = Val
Next
flm.AddFile(Val)

 我这个模糊匹配怎么写? 获取不了
[此贴子已经被作者于2016/5/12 13:49:15编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2016/5/12 14:19:00 [显示全部帖子]

奇了怪了 就是匹配不了

 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2016/5/12 14:35:00 [显示全部帖子]

Dim dls As List(of String)
dls = ftp.GetDetailList("\成品图片")
For Each r As Row In Tables("成品管理").Rows
    r("图片") = Nothing
    For Each dl As String In dls
        po= dl.split("*")(0).split(".")(0).split("_")(0)
        If r("款号") =  po.Trim()  Then
            If Val > "" Then
                Val = Val & vbCrLf
            End If
            Val = Val & "\成品图片\" & r("款号") & ".jpg"
            If Val > "" Then
                Output.Show(Val.Trim())
                 r("图片") = Val.Trim()
                flm.AddFile(Val.Trim())
            End If
        End If
    Next
Next

红袍 这个代码说我路径有非法字符
 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2016/5/12 15:23:00 [显示全部帖子]

Dim flm = Forms("成品管理").Controls("PictureViewer1")
Dim po As String =""
Dim Val As String 
Dim dls As List(of String)
dls = ftp.GetDetailList("\成品图片")
For Each r As Row In Tables("成品管理").Rows
    r("图片") = Nothing
    For Each dl As String In dls
        po= dl.split("*")(0).split(".")(0).split("_")(0)
        If r("款号") =  po.Trim()  Then
            Val = Val & vbCrLf & "\成品图片\" & dl.split("*")(0)
            Val = Val.Trim()
            If Val > "" Then
                r("图片")  = Val
            End If
        End If
    Next
Next


 怎样改比较好,Val 累积上去了,没有按照款号添加到图片列
[此贴子已经被作者于2016/5/12 15:23:10编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2016/5/12 16:02:00 [显示全部帖子]

可以绑定以及赋值了,图片也能看到,但是问题是没有按照款号显示.将ftp的图片全部按照多图显示了


貌似  if r("款号") = po then  不起作用


\成品图片\A0002_1.jpg
\成品图片\A0002_1.jpg\成品图片\A0002_2.jpg
\成品图片\A0002_1.jpg\成品图片\A0002_2.jpg\成品图片\A0002_3.jpg
\成品图片\A0002_1.jpg\成品图片\A0002_2.jpg\成品图片\A0002_3.jpg\成品图片\A0002_1.jpg
\成品图片\A0002_1.jpg\成品图片\A0002_2.jpg\成品图片\A0002_3.jpg\成品图片\A0002_1.jpg\成品图片\A0002_2.jpg
\成品图片\A0002_1.jpg\成品图片\A0002_2.jpg\成品图片\A0002_3.jpg\成品图片\A0002_1.jpg\成品图片\A0002_2.jpg\成品图片\A0002_3.jpg
\成品图片\A0002_1.jpg\成品图片\A0002_2.jpg\成品图片\A0002_3.jpg\成品图片\A0002_1.jpg\成品图片\A0002_2.jpg\成品图片\A0002_3.jpg\成品图片\A0002_1.jpg
\成品图片\A0002_1.jpg\成品图片\A0002_2.jpg\成品图片\A0002_3.jpg\成品图片\A0002_1.jpg\成品图片\A0002_2.jpg\成品图片\A0002_3.jpg\成品图片\A0002_1.jpg\成品图片\A0002_2.jpg
\成品图片\A0002_1.jpg\成品图片\A0002_2.jpg\成品图片\A0002_3.jpg\成品图片\A0002_1.jpg\成品图片\A0002_2.jpg\成品图片\A0002_3.jpg\成品图片\A0002_1.jpg\成品图片\A0002_2.jpg\成品图片\A0002_3.jpg
\成品图片\A0002_1.jpg\成品图片\A0002_2.jpg\成品图片\A0002_3.jpg\成品图片\A0002_1.jpg\成品图片\A0002_2.jpg\成品图片\A0002_3.jpg\成品图片\A0002_1.jpg\成品图片\A0002_2.jpg\成品图片\A0002_3.jpg\成品图片\A00021_1.jpg
\成品图片\A0002_1.jpg\成品图片\A0002_2.jpg\成品图片\A0002_3.jpg\成品图片\A0002_1.jpg\成品图片\A0002_2.jpg\成品图片\A0002_3.jpg\成品图片\A0002_1.jpg\成品图片\A0002_2.jpg\成品图片\A0002_3.jpg\成品图片\A00021_1.jpg\成品图片\A00021_2.jpg
\成品图片\A0002_1.jpg\成品图片\A0002_2.jpg\成品图片\A0002_3.jpg\成品图片\A0002_1.jpg\成品图片\A0002_2.jpg\成品图片\A0002_3.jpg\成品图片\A0002_1.jpg\成品图片\A0002_2.jpg\成品图片\A0002_3.jpg\成品图片\A00021_1.jpg\成品图片\A00021_2.jpg\成品图片\A00021_3.jpg
\成品图片\A0002_1.jpg\成品图片\A0002_2.jpg\成品图片\A0002_3.jpg\成品图片\A0002_1.jpg\成品图片\A0002_2.jpg\成品图片\A0002_3.jpg\成品图片\A0002_1.jpg\成品图片\A0002_2.jpg\成品图片\A0002_3.jpg\成品图片\A00021_1.jpg\成品图片\A00021_2.jpg\成品图片\A00021_3.jpg\成品图片\A00021_1.jpg
[此贴子已经被作者于2016/5/12 16:06:23编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2016/5/12 16:41:00 [显示全部帖子]

很简单的事情呀,我能发例子我早发了:

行号    NAme列     图片列
1          A0002      \成品图片\A0002_1.JPG
                            \成品图片\A0002_2.JPG
                            \成品图片\A0002_3.jpg
2           A0002     
                             \成品图片\A0002_1.JPG
                            \成品图片\A0002_2.JPG
                            \成品图片\A0002_3.jpg

3           A0002        \成品图片\A0002_1.JPG
                            \成品图片\A0002_2.JPG
                            \成品图片\A0002_3.jpg


4           A00021    \成品图片\A00021_1.JPG
                            \成品图片\A00021_2.JPG
                            \成品图片\A00021_3.jpg


5           A00021    \成品图片\A00021_1.JPG
                            \成品图片\A00021_2.JPG
                            \成品图片\A00021_3.jpg

6           A00021     \成品图片\A00021_1.JPG
                            \成品图片\A00021_2.JPG
                            \成品图片\A00021_3.jpg

代码执行后的效果

我的ftp图片文件夹里面有6张图片,名称分别为:


A0002_1.JPG
A0002_2.JPG
A0002_3.jpg
A00021_1.Jpg
A00021_2.jpg
A00021_3.jpg
 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  9楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2016/5/12 16:47:00 [显示全部帖子]

搞定了

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07617 秒, 5 次数据查询