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

 你5楼所给的例子，和你的问题毫不相关。

 给你个思路，你用图片列和pictrueview控件来显示吧。

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

 若不会，就请上传一个完整一点的例子，有图片，有数据

可以实现。

流程是这样的：你输入产品名称->输入多个图片名称->用代码取第二列的图片名称替换成用回车分割(图片列)。这样，把第四列扩展成图片列，就能显示图片了。

 这个意思？不是直接用图片列就行了？记得，把.tbi后缀名改成.jpg后缀名。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:学习图片路径.zip

建议你用图片列去处理。

1、你的图片后缀最好不是.tbi

2、如果希望粘贴文件名进去就自动显示的话，需要用代码去控制才行。

你说明你想怎样吧......结合例子，说你怎么操作，最后达到什么效果

 如下例子

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:学习图片路径 (1).zip

第一个问题：可以打开，如果你电脑有可以打开此类后缀名的软件。或者你指定一下默认用什么软件打开此类文件；

第二个问题：可以这样，输入路径也可以，要特殊处理一下。你输入的路径是 D:\test\test 这样的吗？

 回复19楼

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:文件窗口显示.table

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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:文件窗口显示.table

 你给的例子完全不对应你的问题

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