以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何将列【2014】括号内的年度自动提取年度值?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=75276)
--  作者：bl018
--  发布时间：2015/10/2 17:31:00
--  如何将列【2014】括号内的年度自动提取年度值?

 文号列                                   年度列
粤财农【2014】112号          2014
粤财农【2015】152号              2015
粤财农【2013】112号              2013
粤财农管【2015】32号             2015
粤财农综【2015】260号           2015
  如何将上述列自动取值年度??
 
[此贴子已经被作者于2015/10/2 17:33:44编辑过]
--  作者：sjx71
--  发布时间：2015/10/2 17:55:00
--  

 

在表的DataColChanged 事件中写入以下代码

 

Select Case e.DataCol.Name
    Case "文号列"
        If e.NewValue.contains("【") Then
            Dim i As Integer
            i = e.NewValue.IndexOf("【")
            e.DataRow("年度列") = e.NewValue.SubString(i + 1,4)
        End If
End Select

 

然后重置列 文号列 即可
--  作者：bl018
--  发布时间：2015/10/2 18:20:00
--  
3Q搞定,知这个SubString函数就是转不过弯,,杯具
[此贴子已经被作者于2015/10/2 18:20:22编辑过]
--  作者：ztmdnzc
--  发布时间：2015/10/3 8:37:00
--  
遇到[你又该怎么办？设计程序时得多想想。