- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]FileManager (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=74865)
-- 发布时间：2015/9/21 15:39:00
-- [求助]FileManager
此主题相关图片如下：33.jpg
-- 发布时间：2015/9/21 15:41:00
--
去编写此表的BeforeOpenFile事件
http://www.foxtable.com/help/topics/2637.htm
-- 发布时间：2015/9/21 16:19:00
--
不是这个意思 因为刚才哪个图片是编辑窗口，我每次打开FileManager里的文件比较麻烦，我想在主窗口建一个Button控件，单击后直接打开FileManager里的文件。
-- 发布时间：2015/9/21 16:30:00
--
按钮代码
Dim proc As new Process
If DataTables("表A").DataCols("第一列").DefaultFolder = Nothing Then
proc.File = ProjectPath & "Attachments/" & Forms("窗口1").Controls("FileManager1").SelectedItem
Else
proc.File = DataTables("表A").DataCols("第一列").DefaultFolder & "/" & Forms("窗口1").Controls("FileManager1").SelectedItem
End If
proc.Start
-- 发布时间：2015/9/21 16:54:00
--
此主题相关图片如下：00.jpg
FileManager控件里面的文件是docx格式，且每行此列里面都只一个文件，可不可以不通过FileManager打开word文件。谢谢您
-- 发布时间：2015/9/21 17:05:00
--
Dim proc As new Process
If DataTables("表A").DataCols("第一列").DefaultFolder = Nothing Then
proc.File = ProjectPath & "Attachments/" & Tables("表A").current("第一列")
Else
proc.File = DataTables("表A").DataCols("第一列").DefaultFolder & "/" & Tables("表A").current("第一列")
End If
proc.Start
-- 发布时间：2015/9/21 17:15:00
--
请问师傅 怎写一个判断代码 判断选定行的列里面是否有后辍是docx的文件，如果没有弹出窗口 提示为“这款没有找到生产制单” 如果有直接打开
谢谢您了
-- 发布时间：2015/9/21 17:48:00
--
If Tables("表A").current.IsNull("第一列") Then
msgbox("没有文件")
Else
Dim fname As String
If DataTables("表A").DataCols("第一列").DefaultFolder = Nothing Then
fname = ProjectPath & "Attachments/" & Tables("表A").current("第一列")
Else
fname = DataTables("表A").DataCols("第一列").DefaultFolder & "/" & Tables("表A").current("第一列")
End If
Dim proc As new Process
proc.File = fname
proc.Start
End If
-- 发布时间：2015/9/21 17:56:00
--
谢谢您了