[求助]文件权限 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]文件权限

共有5880人关注过本帖树形打印复制链接主题：[求助]文件权限

有点甜

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/4/16 9:43:00 [显示全部帖子]

If e.DataCol.Name = "下发" AndAlso e.DataRow("下发") = True Then
    Dim nma() As String = {"发文单位","文号","文件名称","文件","发文日期"} 'A表数据来源列
    Dim nmb() As String = {"发文单位","文号","文件名称","文件","发文日期"} 'B表数据接收列
    Dim dr As DataRow = DataTables("贯彻学习").Find("发文单位='" & e.DataRow("发文单位") & "' and 文号='" & e.DataRow("文号") & "'")
    If dr Is Nothing Then
        dr = DataTables("贯彻学习").addnew
    End If
    For i As Integer = 0 To nma.Length - 1
        dr(nmb(i)) = e.DataRow(nma(i))
    Next
End If

有点甜

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/4/16 10:33:00 [显示全部帖子]

datacolchanged事件

If e.DataCol.name = "类型" Then
    If e.OldValue > "" Then
        If e.oldvalue = "学习文件" Then
            DataTables("学习文件").deletefor("第十列='" & e.DataRow("_Identify") & "'")
        ElseIf e.oldvalue = "标准化"
            DataTables("标准化").deletefor("第十列='" & e.DataRow("_Identify") & "'")
        End If
    End If
End If
Select Case e.DataCol.name
    Case "类型","文件名","发文单位"
        Dim fdr As DataRow
        If e.DataRow("类型") = "学习文件" Then
            fdr = DataTables("学习文件").find("第十列='" & e.DataRow("_Identify") & "'")
            If fdr Is Nothing Then fdr = DataTables("学习文件").addnew
        ElseIf e.DataRow("类型") = "标准化"
            fdr = DataTables("标准化").find("第十列='" & e.DataRow("_Identify") & "'")
            If fdr Is Nothing Then fdr = DataTables("标准化").addnew
        End If
        If fdr IsNot Nothing Then
            fdr("类型") = e.DataRow("类型")
            fdr("文件名") = e.DataRow("文件名")
            fdr("发文单位") = e.DataRow("发文单位")
            e.DataRow.save
            fdr("第十列") = e.DataRow("_Identify")
        End If
End Select

有点甜

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/4/16 11:05:00 [显示全部帖子]

以下是引用q2520在2018/4/16 10:39:00的发言：
第十列不能删除是吧？可以隐藏？

是的第十列不能删除，可以隐藏。

有点甜

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/4/16 16:46:00 [显示全部帖子]

试试设置自动删除附件

http://www.foxtable.com/webhelp/scr/0088.htm

有点甜

小大 15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/4/17 9:36:00 [显示全部帖子]

If e.DataCol.Name = "文件" Then
    Dim fn = ProjectPath & "attachments\" & FileSys.getName(e.FileName)
    If e.DataCol.ftpclient.download(e.filename, fn) Then
        Dim proc As new Process
        proc.File = fn
        proc.start
    Else
        msgbox("不能下载")
    End If
End If