Foxtable(狐表)用户栏目专家坐堂 → 如何通过代码独立使用扩展列类型为“文件”的菜单命令?


  共有8736人关注过本帖树形打印复制链接

主题:如何通过代码独立使用扩展列类型为“文件”的菜单命令?

帅哥哟,离线,有人找我吗?
y2287958
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:4640 积分:33850 威望:0 精华:0 注册:2008/8/31 22:44:00
如何通过代码独立使用扩展列类型为“文件”的菜单命令?  发帖心情 Post By:2012/11/21 16:34:00 [只看该作者]

如题如图
图片点击可在新窗口打开查看此主题相关图片如下:11.bmp
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/11/21 16:51:00 [只看该作者]

1、
http://www.foxtable.com/help/topics/0353.htm

 
例如:
 
Dim r As row = Tables("xxx").Current
if r.IsNull("文件") = False Then
     Dim fl  As String = ProjectPath & & "Attachments\" & r("文件") Then
     If Filesys.FileExists(fl) Then
          Dim Proc As New Process '定义一个新的Process
          Proc.File = fl '指定要打开的文件
          Proc.Start()
     End If
End If

2、
http://www.foxtable.com/help/topics/0328.htm


 
例如:
 
Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls|Word文件|*.doc|Access文件|*.mdb" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
     Tables("xxx").Current("文件") =  dlg.FileName
End If
 
3、
 
Tables("xxx").Current("文件") = Nothing

 

可以看出,没有技巧可以,都是帮助现成的知识。


 回到顶部
帅哥哟,离线,有人找我吗?
y2287958
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:4640 积分:33850 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By:2012/11/21 20:19:00 [只看该作者]

首先谢谢狐爸
这些代码俺也是知晓的
但俺想要是直接控制或引用当前现成的菜单命令而已
(也就是省了再重新写代码的功夫)

 回到顶部