以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]文档名称根据第一列中录入的文档全路径自动生成  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=142508)
--  作者：miaoqingqing
--  发布时间：2019/10/29 12:23:00
--  [求助]文档名称根据第一列中录入的文档全路径自动生成
如题
第一列录入 C:/中国/广东/简介.doc
第二列自动录入 简介.doc 最后一个斜线后面的字符串
第三列自动录入格式后缀 doc 点后面的字符串

[此贴子已经被作者于2019/10/29 12:27:15编辑过]
--  作者：有点蓝
--  发布时间：2019/10/29 13:35:00
--  
datacolchanged事件

If e.DataCol.name = "第一列" AndAlso e.newvalue > "" Then
    Dim file As String = FileSys.GetName(e.newvalue)
    e.DataRow("第二列") = file
    If file.Contains(".") Then
            e.DataRow("第三列") = file.Split(".")(1)
    End If
End If