弧表能不能窗口显示文件 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

感谢！在问甜兄弟一个问题，

比如第一列内容是I:\各个狐表系统\速卖通文件管理系统\商品库\淘宝助理5数据包20140422092130\contentPic\加肥加大码衣服短袖桖361

第二列只取：”淘宝助理5数据包20140422092130\“和之前的数据？有办法吗？甜兄弟。

以下是引用yangwenghd在2014-4-23 21:23:00的发言：
感谢！在问甜兄弟一个问题，

比如第一列内容是I:\各个狐表系统\速卖通文件管理系统\商品库\淘宝助理5数据包20140422092130\contentPic\加肥加大码衣服短袖桖361

第二列只取：”淘宝助理5数据包20140422092130\“和之前的数据？有办法吗？甜兄弟。

和之前的的数据？

是说，取这个目录下淘宝助理5数据包20140422092130 的数据？

[此贴子已经被作者于2014-4-23 21:29:21编辑过]

这么晚还在麻烦你实在是不好意思！感谢
图片点击可在新窗口打开查看

此主题相关图片如下：qq截图20140423213544.jpg

回复33楼，帮你做一半，另一半自己改一改哈。

Dim str As String = "I:\各个狐表系统\速卖通文件管理系统\商品库\淘宝助理5数据包20140422092130\contentPic\加肥加大码衣服短袖桖361"
Dim idx As Integer = str.IndexOf("\淘宝助理")
If idx > -1 Then
str = str.SubString(0, idx)
End If
msgbox(str)

[此贴子已经被作者于2014-4-23 21:41:27编辑过]

好的甜兄弟是四川人哈！

逗了很久都没逗出来，你鞭打我嘛图片点击可在新窗口打开查看

比如原本的代码是这样

Select Case e.DataCol.Name
    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
End Select

改成这样

Select Case e.DataCol.Name
    Case "第三列"
        Dim str As String = ""
        Dim data As String = e.DataRow("第三列").replace("[").replace("]")
        If data <> Nothing Then
            Dim idx As Integer = data.IndexOf("\淘宝助理")
            If idx > -1 Then
                data = data.SubString(0, idx)
            End If
            If FileSys.DirectoryExists(data)
                For Each f As String In FileSys.GetFiles(data)
                    str += f & vbcrlf
                Next
            End If
        End If
        e.DataRow("第四列") = str
End Select

主题：弧表能不能窗口显示文件