最新版2.4.1.412 通用附件保存新建文件夹方法

时　间:2017-08-06 22:41:41
作　者:飘零   ID：44314  城市：苏州
摘　要:最新版2.4.1.412 通用附件自定义文件夹
正　文:

最新版2.4.1.412 通用附件保存新建文件夹方法：

实现自定义文件夹

Private Sub Form_Load()
    ApplyTheme Me
    LoadLocalLanguage Me

    If Nz(Me.OpenArgs) <> "" Then
        LoadRecord Me, "Select * FROM [tbl_姓名] Where [ID]=" & Nz(Me.OpenArgs, 0)
    End If


    If Me.DataEntry Then
        Me![ID] = Null
    End If
    '通过这行代码进行调用实现附件加载
    If Not IsNull(Me![姓名]) Then
        Dim CNN As Object
        Set CNN = GETADOCONNECTION()
         Me.sfrAttachments!txtAttachmentPath = Me.sfrAttachments!txtAttachmentPath & "\" & "甲醇\"
          Call Me.sfrAttachments.Form.LoadAttachmentData("甲醇中心", Me!姓名, CNN)
    End If

    Me.btnSave.Enabled = Me.AllowEdits
End Sub

···································································

Private Sub btnSave_Click()

    ························

    rst.Close

   'cnn.CommitTrans
   'blnTransBegin = False
   
 '保存附件
        Call Me.sfrAttachments.Form.SaveAttachmentData("甲醇中心", Me!姓名, CNN)


    RequeryDataObject gsfrList
    MsgBoxEx LoadString("Saved Successfully."), vbInformation

实现效果: