以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  筛选字符  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=51807)

--  作者:yangwenghd
--  发布时间:2014/6/3 21:33:00
--  筛选字符
兄弟们 如果第一列是 Address: Rekemerstraat 1 Rekem/Lanaken, Limburg, Belgium
第二列取第一列最后一个 “,”后面的字符应该怎么写啊! 相当于第二列等于=Belgium

--  作者:有点甜
--  发布时间:2014/6/3 21:39:00
--  
Dim str As String = "Address: Rekemerstraat 1 Rekem/Lanaken, Limburg, Belgium"
str = str.SubString(str.LastIndexOf(",")+1)
msgbox(str.trim())

--  作者:yangwenghd
--  发布时间:2014/6/3 22:05:00
--  
感谢 
--  作者:yangwenghd
--  发布时间:2014/6/3 22:10:00
--  
谢谢你!甜美女
可不可以设置为每行第一列的“,”后的字符啊 
因为第一行可能是Address: Rekemerstraat 1 Rekem/Lanaken, Limburg, Belgium
但是第行可以又是其他的了 但是格式不会变!
感谢 感谢 

--  作者:有点甜
--  发布时间:2014/6/3 22:13:00
--  

 呃,这个,你编写表的datacolchanged事件即可

 

If e.DataCol.Name = "第一列" AndAlso e.NewValue <> Nothing Then
    Dim str As String = e.DataRow("第一列")
    str = str.SubString(str.LastIndexOf(",")+1)
    e.DataRow("第二列") = str.trim()
End If


--  作者:yangwenghd
--  发布时间:2014/6/3 22:20:00
--  
感谢 感谢 图片点击可在新窗口打开查看