Select Case e.DataCol.Name
Case "影像"
Dim dr As DataRow = e.DataRow
e.DataCol.DefaultFolder = mypath
e.SubFolder = dr("一级") & "\\" & dr("二级") & "\\" & "影像"
Case "资料附件"
Dim dr As DataRow = e.DataRow
e.DataCol.DefaultFolder = mypath
MessageBox.Show(mypath)
e.SubFolder = dr("一级") & "\\" & dr("二级") & "\\" & dr("资料内容")
End Select