以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  如何删除最后一个无意义的连接符  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=147526)

--  作者：fytea --  发布时间：2020/3/18 20:13:00 --  如何删除最后一个无意义的连接符 用下面代码生成的文件夹为 全宗号-保管期限-册号-组内张数 如果当"组内张数"为空，文件夹为 全宗号-保管期限-册号- 如何删除最后一个红色的- \'\'\' 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

--  作者：y2287958 --  发布时间：2020/3/19 8:03:00 --   TrimEnd [此贴子已经被作者于2020/3/19 8:03:19编辑过]

--  作者：fytea --  发布时间：2020/3/19 20:13:00 --   @y2287958 你好，不知道怎么用法

--  作者：有点蓝 --  发布时间：2020/3/20 9:08:00 --   参考：http://www.foxtable.com/webhelp/topics/1338.htm e.SubFolder = (dr("全宗号") & "-" & dr("保管期限") & "-" & dr("册号")& "-" & dr("组内张数") ）.trim("-")