Foxtable(狐表)用户栏目专家坐堂 → 请教老师 如何在表中的文件管理器控件设计权限


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

主题:请教老师 如何在表中的文件管理器控件设计权限

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


加好友 发短信
等级:小狐 帖子:366 积分:3522 威望:0 精华:0 注册:2016/5/25 21:31:00
请教老师 如何在表中的文件管理器控件设计权限  发帖心情 Post By:2017/4/20 23:02:00 [只看该作者]


此主题相关图片如下:qq图片20170420225401.png
按此在新窗口浏览图片


在PrepareEdit事件中写以下代码后,不能打开文件完全不能编辑,现在要达到设计图表的审核意见判为合格后,只保留打开文件功能,要怎么写代码

If e.Row("审稿结果") = "不合格" Then '如果审批列不为空

    Select Case e.Col.Name

        Case "操作人及时间","审稿结果"

            e.Cancel = False

        Case "类别","设计图","预览图","时间","设计师","备注"

            e.Cancel = True '则禁止编辑

    End Select

End If


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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/4/21 9:00:00 [只看该作者]

 那就需要弹出不同的窗口,参考

 

下载信息  [文件大小:308.0 KB  下载次数:12]
图片点击可在新窗口打开查看点击浏览该文件:文件按钮_例子.table

 


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


加好友 发短信
等级:小狐 帖子:366 积分:3522 威望:0 精华:0 注册:2016/5/25 21:31:00
  发帖心情 Post By:2017/4/21 18:07:00 [只看该作者]

按钮的代码不对
RemoteFiles改为"\\192.168.1.18\$fill$\sheji\" 也不行

窗口1_Button1_Click

 

Dim c As Col = CurrentTable.Cols(CurrentTable.ColSel)

Dim ftp As FTPClient = c.DataCol.FTPClient

Dim path As String = ProjectPath & "RemoteFiles\" & FileSys.GetName(CurrentTable.Current(c.Name))

ftp.Download(CurrentTable.Current(c.Name), path, True)

 

Dim proc As new Process

proc.File = path

proc.Start

e.Form.Close

 

窗口1_Button2_Click

 

Dim dlg As new SaveFileDialog

If dlg.ShowDialog = DialogResult.OK Then

    Dim c As Col = CurrentTable.Cols(CurrentTable.ColSel)

    Dim ftp As FTPClient = c.DataCol.FTPClient

    Dim path As String = ProjectPath & "RemoteFiles\" & FileSys.GetName(CurrentTable.Current(c.Name))

    ftp.Download(CurrentTable.Current(c.Name), path, True)

       

    FileSys.CopyFile(path, dlg.FileName, True)

    msgbox("另存成功")

    e.Form.Close

End If


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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/4/21 18:14:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:文件按钮_例子.table


 回到顶部