在安全检查明细表BeforAttachFile事件中，分别设置了两列插入照片和报告，并存放在动态文件夹中，如下图式：
DataTables("安全检查明细表").DataCols("照片").DefaultFolder = ProjectPath & "检查照片\" & e.DataRow("房屋地址") & "\"
If e.DataCol.Name = "照片" Then
Dim dr As DataRow = e.DataRow
If dr.IsNull("检查人") Or dr.IsNull("检查日期") Then
MessageBox.Show("检查人和检查日期不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.Cancel = True
Else
e.SubFolder = dr("检查日期").Date & dr("检查人")
End If
ElseIf e.DataCol.Name = "鉴定情况_报告" Then
Dim dr As DataRow = e.DataRow
If dr.IsNull("鉴定情况_鉴定单位") Or dr.IsNull("鉴定情况_鉴定统一编号") Then
MessageBox.Show("鉴定单位和鉴定统一编号不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.Cancel = True
Else
Dim fl As String = e.FileName
Dim idx As Integer = fl.LastIndexof(".")
Dim ext As String = fl.SubString(idx)
e.FileName = dr("鉴定情况_鉴定统一编号") & dr("鉴定情况_鉴定单位") & ext
End If
DataTables("安全检查明细表").DataCols("鉴定情况_报告").DefaultFolder = ProjectPath & "检查照片\" & e.DataRow("房屋地址") & "\鉴定报告\"
End If
出现以下问题：
1、插入第一张图片时，未能正确显示，发现是未建立动态文件夹，当插入第二张图片时可正确显示。
2、新增至30行左右，发现照片管理器不能显示图片，提示文件不存在，但动态文件夹内照片存在。
请问怎样解决？
加好友 
发短信
Post By：2018/3/23 9:13:00 [只看该作者]
