以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  文件查询  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=118486)
--  作者：lb4177
--  发布时间：2018/5/4 8:22:00
--  文件查询

专家你好，我是一个初学者，我有一个文档管理表，文档列我设置成多文件，在文件管理器中添加了很多个文件，我想设计一个查询窗口来查找文件管理器中添加的其中一个文件并打开它，怎么设计？
图片点击可在新窗口打开查看此主题相关图片如下：文档.png
图片点击可在新窗口打开查看
--  作者：有点甜
--  发布时间：2018/5/4 8:45:00
--  
Dim fname As String = "test.doc"
Dim dt As DataTable = DataTables("表A")
For Each dr As DataRow In dt.Select("第一列 like \'%" & fname & "%\'")
    For Each s As String In dr.Lines("第一列")
        If s.contains(fname) Then
            Dim proc As new Process
            proc.File = ProjectPath & "attachments/" & s
            proc.Start
        End If
    Next
Next
--  作者：lb4177
--  发布时间：2018/5/4 9:03:00
--  
感谢版主的帮助，我在运行的时候显示编译错误：“Lines”不是“dataRow”的成员，我不知道是我哪里搞错了，麻烦你指点一下，谢谢!
--  作者：有点甜
--  发布时间：2018/5/4 9:12:00
--  
以下是引用lb4177在2018/5/4 9:03:00的发言：
感谢版主的帮助，我在运行的时候显示编译错误：“Lines”不是“dataRow”的成员，我不知道是我哪里搞错了，麻烦你指点一下，谢谢!

 

升级到最新版foxtable，即可。

 

如果还是用旧版，请这样写

 

Dim fname As String = "test.doc"
Dim dt As DataTable = DataTables("表A")
For Each dr As DataRow In dt.Select("第一列 like \'%" & fname & "%\'")
    For Each s As String In dr("第一列").replace(chr(10), "").split(chr(13))
        If s.contains(fname) Then
            Dim proc As new Process
            proc.File = ProjectPath & "attachments/" & s
            proc.Start
        End If
    Next
Next