Case "配图_A","配图_竖A","配图_横A" e.SubFolder = dr("文件归档") & "\" & "帮助配图" Case "配图_A附件","配图_竖A附件","配图_横A附件" SystemReady = False e.SubFolder =dr("文件归档") & "\" & "帮助配图" dr(e.DataCol.name) = iif(dr.IsNull(e.DataCol.name), e.SubFolder & "\" & e.FileName, dr(e.DataCol.name) & chr(13) & e.SubFolder & "\" & e.FileName) SystemReady = True
|