以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  从单元格读取指定的文字  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=82552)
--  作者：yifan3429
--  发布时间：2016/3/20 13:03:00
--  从单元格读取指定的文字

Select e.DataCol.name
    Case "编号"
        e.DataRow("文件流水") = e.DataRow("订单名称") & "第" & e.DataRow("编号") & "次" & "变更"
        \'End If
End Select

编号格式是  
SKFA-201511-00104   

需要读取红色部分  让文件流水 显示 结果为 第 04 次变更
[此贴子已经被作者于2016/3/20 13:07:55编辑过]
--  作者：Hyphen
--  发布时间：2016/3/20 16:10:00
--  

Dim s As String = "SKFA-201511-00104"
Output.Show(s.SubString( s.Length - 2,2))
--  作者：Hyphen
--  发布时间：2016/3/20 16:11:00
--  
http://www.foxtable.com/help/topics/1338.htm
--  作者：yifan3429
--  发布时间：2016/3/20 18:13:00
--  
如何和

Select e.DataCol.name
    Case "编号"
        e.DataRow("文件流水") = e.DataRow("订单名称") & "第" & e.DataRow("编号") & "次" & "变更新"
        \'End If
End Select


结合使用
--  作者：yifan3429
--  发布时间：2016/3/20 19:19:00
--  
顶下  
--  作者：大红袍
--  发布时间：2016/3/20 23:31:00
--  

 

Select e.DataCol.name
    Case "编号"
        Dim s As String = e.DataRow("编号")
        s = s.SubString( s.Length - 2,2)
        e.DataRow("文件流水") = e.DataRow("订单名称") & "第" & s & "次" & "变更新"
       
End Select