用下面代码生成的文件夹为
全宗号-保管期限-册号-组内张数
如果当"组内张数"为空,文件夹为
全宗号-保管期限-册号-
如何删除最后一个红色的-
'''
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("组内张数")
End If