Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何改写此处


  共有2421人关注过本帖树形打印复制链接

主题：如何改写此处
帅哥哟，离线，有人找我吗？
nxdx112
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：405 积分：3688 威望：0 精华：0 注册：2016/11/12 18:42:00 		如何改写此处  发帖心情 Post By：2018/5/21 21:41:00 [只看该作者]

If dm.IsNull("课题")  Then
    MessageBox.Show("请先输入课堂名称!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    e.Cancel = True
Else
    e.FileName = dm("课题")
End If

e.FileName = dm("课题")此处如何改写使得添加的文件或图片根据课题列的内容命名，但文件的类型与添加时的类型保持一致。
[此贴子已经被作者于2018/5/21 21:42:32编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/5/21 21:50:00 [只看该作者]

Dim name As String = FileSys.GetName(e.FileName)
Dim dir As String = e.FileName.replace(name,"")
msgbox(name)
msgbox(dir)
e.FileName = dir &  dm("课题") & name.split(".")(1)
msgbox(e.FileName)
 回到顶部
帅哥哟，离线，有人找我吗？
nxdx112
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：405 积分：3688 威望：0 精华：0 注册：2016/11/12 18:42:00 		  发帖心情 Post By：2018/5/21 22:14:00 [只看该作者]

谢谢，基本可以，就是弹出的msgbox有点多

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/5/21 22:21:00 [只看该作者]

额，测试用的，可以去掉

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04102 秒, 4 次数据查询