主题：[求助]文件权限

表属性->允许编辑->False

刚找到了           决定买这个软件   主要是你服务好 

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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:文件_201804160945.zip

现在有3个表  希望在内部文件表   类型列里  如果选择的是标准化   那么这行的内容就同步到    标准化表里   如果修改成学习文件   那么标准化表里删除这个行   在学习文件表里添加相同行的内容

 

甜老师受累了  最近问题比较多

 

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

第十列  不能删除是吧 ？   可以隐藏？

 

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

试试设置自动删除附件

 

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