Foxtable(狐表) → 用户栏目 → 专家坐堂 → 弧表能不能窗口显示文件


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

主题：弧表能不能窗口显示文件
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2701 积分：17993 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2014/4/23 9:54:00 [只看该作者]

感谢 ！第一个功能的图片位置文件夹能不能单独设置一个文件夹 不是指定的Attachments
怎么把第二个的个功能的代码单独分开啊  
比如  路径是第三列   图显示第四列，
[此贴子已经被作者于2014-4-23 9:55:38编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/4/23 10:15:00 [只看该作者]

 如下，你改一下第二列的列属性 

 


图片点击可在新窗口打开查看此主题相关图片如下：qq截图20140423101145.png
图片点击可在新窗口打开查看
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:文件窗口显示.table
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2701 积分：17993 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2014/4/23 13:57:00 [只看该作者]

基本搞定！基本也是靠的你！
谢谢!
还有几个问题！还得咨询一下甜兄弟
一、要在路径"K:\各个狐表系统\速卖通文件管理系统\第一列\商品库\，商品前面在添加一个“第一列”里面的内容能帮我看看吗？
If e.DataCol.Name = "商品信息_文件地址" Then
    Dim Oldstr As String =e.DataRow("商品信息_名称")
    Dim Newstr As String = ""
    Newstr = "K:\各个狐表系统\速卖通文件管理系统\商品库\" & NewStr & e.DataRow("商品信息_文件夹名")
    e.DataRow("商品信息_文件地址")="[" & Newstr & "]"
End If

二、能在列属性存放目录的这个路径里面能在测试前面添加一个第二列吗？图片点击可在新窗口打开查看
三、在第三列里面前后添加了一个[]（添加目录自动生成的）就不能用了，能帮我改改吗？
 Case "第三列"
        Dim str As String = ""
        Dim data As String = e.DataRow("第三列")
        If data <> Nothing Then
            For Each f As String In FileSys.GetFiles(data)
                str += f & vbcrlf
            Next
        End If
        e.DataRow("第四列") = str
End Select

感谢 感谢 
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/4/23 14:27:00 [只看该作者]

 上传你做好的例子。

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


加好友 发短信
等级：九尾狐 帖子：2701 积分：17993 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2014/4/23 15:05:00 [只看该作者]

嘿嘿 不好意思 ！还是得麻烦你呀？
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:改变属性路径.table


图片点击可在新窗口打开查看此主题相关图片如下：a20140423145229.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：b截图20140423145423.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/4/23 15:34:00 [只看该作者]

 你给的例子完全不对应你的问题图片点击可在新窗口打开查看

 

Select Case e.DataCol.Name
    Case "第一列"
        Dim data As String = e.DataRow("第一列")
        Dim str As String = ""
        Dim arys() As String = data.Replace("|;", chr(13)).Split(chr(13))
        For Each ary As String In arys
            Dim idx As Integer = ary.IndexOf(":")
            If idx > -1 Then
                str += ary.SubString(0, idx) & ".tbi" & vbcrlf
            End If
        Next
        e.DataRow("第二列") = str
    Case "第三列"
        Dim str As String = ""
        Dim data As String = e.DataRow("第三列").replace("[").replace("]")
        If data <> Nothing Then
            If FileSys.DirectoryExists(data)
                For Each f As String In FileSys.GetFiles(data)
                    str += f & vbcrlf
                Next
            End If
        End If
        e.DataRow("第四列") = str
    Case "第八列", "第六列", "第七列"
        Dim newstr As String = "K:\A\B\" & e.DataRow("第八列") & "\" & e.DataRow("第七列")
        e.DataRow("第六列") = newstr
       
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  27楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2701 积分：17993 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2014/4/23 17:24:00 [只看该作者]

 甜兄弟 帮忙看看 为什么添加在以前就不能用了啊 嘿嘿，在输入文件夹地址列输入文件的路径，图片详解不显示文件夹里面的图片 能帮我看看吗？

还有个文件 就是 能不能在扩展列的存放目录也插入列的参数啊

有个功能不能实现 我重新做一个 清晰点的

[此贴子已经被作者于2014-4-23 19:02:55编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  28楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/4/23 17:28:00 [只看该作者]

以下是引用yangwenghd在2014-4-23 17:24:00的发言：
甜兄弟 帮忙看看 为什么添加在以前就不能用了啊 嘿嘿

 

现在问题是不清楚到底想怎样。你把问题总结一下，做一个例子，上传，说明输入什么，做什么操作，然后得到什么。

 

说说的东西，要在你的例子里体现出来。
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  29楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2701 积分：17993 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2014/4/23 19:24:00 [只看该作者]

没每行的路径都不同，列扩展图片的存放路径可以是某一列吗？

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:文件窗口显示.table


图片点击可在新窗口打开查看此主题相关图片如下：qq截图20140423194359.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2014-4-23 19:46:12编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  30楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/4/23 20:05:00 [只看该作者]

 看了一下，可以这样做，你就不需要设置存放目录了，比如在 第七列设置成存放目录

 

Select Case e.DataCol.Name
    Case "第一列"
        Dim data As String = e.DataRow("第一列")
        Dim str As String = ""
        Dim arys() As String = data.Replace("|;", chr(13)).Split(chr(13))
        For Each ary As String In arys
            Dim idx As Integer = ary.IndexOf(":")
            If idx > -1 Then
                str += e.DataRow("第七列") & "\" & ary.SubString(0, idx) & ".tbi" & vbcrlf
            End If
        Next      
        e.DataRow("第二列") = str
    Case "第三列"
        Dim str As String = ""
        Dim data As String = e.DataRow("第三列")
        If data <> Nothing Then
            For Each f As String In FileSys.GetFiles(data)
                str += f & vbcrlf
            Next
        End If
        e.DataRow("第四列") = str
    Case "第七列"
        Dim data As String = e.DataRow("第一列")
        Dim str As String = ""
        Dim arys() As String = data.Replace("|;", chr(13)).Split(chr(13))
        For Each ary As String In arys
            Dim idx As Integer = ary.IndexOf(":")
            If idx > -1 Then
                str += e.DataRow("第七列") & "\" & ary.SubString(0, idx) & ".tbi" & vbcrlf
            End If
        Next      
        e.DataRow("第二列") = str
End Select
 回到顶部
总数 37 上一页 1 2 3 4 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.08594 秒, 7 次数据查询