假定表中有几列，分别是版本、册、章，有若干列照片列（课件、试卷、教案、视频、学案）。希望向这些照片列添加文件的时候，自动根据版本，册，章来创建子目录来存放文件，例如课件为北师大版七上第二章的文件存放在子目录"北师大版\七上\课件\第二章"下：教案为北师大版八上上第四章的文件存放在子目录"北师大版\八上\教案\第四章"下：
Dim dr As DataRow = e.DataRow
If dr.IsNull("版本") Or Dr.IsNull("册") Or Dr.IsNull("章") Then
MessageBox.Show("版本、册、章不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.Cancel = True
Else
e.SubFolder = dr("版本") & "\" & dr("册") & "\" & dr("课件") & "\" & dr("章 ")
e.SubFolder = dr("版本") & "\" & dr("册") & "\" & dr("教案") & "\" & dr("章")
End If
不知道怎么改，望老师写个代码。
加好友 
发短信
Post By：2018/5/11 11:49:00 [只看该作者]
