最新版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
实现效果: