以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]二进制列打开文件问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=67375)

--  作者:倪惠明
--  发布时间:2015/4/23 9:36:00
--  [求助]二进制列打开文件问题
在二进制列的帮助文件实例中,打开文件时,如果已经打开了一次且未关闭该文件,当再次点击打开文件按钮时,出现下列提示,这在实际使用时不是很友好,是否有办法解决。谢谢!
图片点击可在新窗口打开查看此主题相关图片如下:qq截图20150423092558.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20150423092624.png
图片点击可在新窗口打开查看

--  作者:Bin
--  发布时间:2015/4/23 9:38:00
--  
而禁止列并不会显示,而且也没有所谓的打开文件按钮啊.


自己编码的话如下.


把文件下载回来后 自己编码启动http://www.foxtable.com/help/topics/0353.htm

用这个方法判断是否已经打开 http://www.foxtable.com/help/topics/2713.htm

另外正常情况下,重复打开也是没问题的.

--  作者:倪惠明
--  发布时间:2015/4/23 10:03:00
--  

实例中的代码:

 

If Tables("员工").Current Is Nothing Then
    Return
End If
Dim dr As DataRow = Tables("员工").Current.DataRow
Dim fl As String =  ProjectPath &  dr("_Identify") & ".doc"
If dr.SQLLoadFile("附件",fl) Then \'如果提取文件成功
    Dim Proc As New Process \'打开文件
    Proc.File = fl
    Proc.Start()
Else
    Messagebox.Show("附件提取失败,可能并不存在附件!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If


--  作者:Bin
--  发布时间:2015/4/23 10:04:00
--  
代码没问题, 如果要判断是否打开.看2楼
--  作者:Bin
--  发布时间:2015/4/23 10:06:00
--  
或者用这个方法判断 http://www.foxtable.com/help/topics/2126.htm