以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]字符串提取字段split  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=59494)

--  作者:安阳
--  发布时间:2014/11/5 11:48:00
--  [求助]字符串提取字段split

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:例子.table

希望输入产品型号的时候能自动能从产品型号里面把型号、压力、口径分离出来,在表属性dotacolchanged或者用表达式

我知道应该用split命令,但是不晓得怎么用。。。

产品型号                                     型号          压力     口径

BZ43WH-16 DN100    ————   BZ43WH     16     DN100


--  作者:有点甜
--  发布时间:2014/11/5 11:52:00
--  

datacolchanged事件。

 

If e.DataCol.Name = "公司产品图号"
    If e.NewValue = Nothing Then
        e.DataRow("产品型号") = Nothing
        e.DataRow("压力") = Nothing
        e.DataRow("口径") = Nothing
    Else
        Dim chrs() As Char = {"-", " "}
        Dim ary() As String = e.NewValue.split(chrs)
        e.DataRow("产品型号") = ary(0)
        e.DataRow("压力") = ary(1)
        e.DataRow("口径") = ary(2)
    End If
End If