以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教关于分割字符串。  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=16415)

--  作者:yacity
--  发布时间:2012/2/13 16:14:00
--  请教关于分割字符串。

 
图片点击可在新窗口打开查看此主题相关图片如下:236.jpg
图片点击可在新窗口打开查看

我有三列 分别是 guige(规格)    kuandu(宽度)   houdu(厚度)

 

规格的格式一般是 80*0.02*10kg 等。宽度kuandu就是80,厚度就是0.02.

如果输入规格自动填充 宽度、厚度。

 

应该是在 datacolchanged 写代码:

 

 

这样写不能运行

Case "guige"

Dim r=e.DataRow("guige")
If r="" Then
e.DataRow("kuandu")=""
e.DataRow("houdu")=""
Else
Dim s1 As String
s1=r.split("*")
e.DataRow("kuandu")=s1(0)
e.DataRow("houdu")=s1(1)
End If

 

 

具体该怎么写呢?


--  作者:狐狸爸爸
--  发布时间:2012/2/13 16:33:00
--  

我没有看出你的代码有问题。

可以做个例表发上来。

提示: 千万不要整个项目传上来,单独新建一个项目,导入这个表后传上来即可。


--  作者:yacity
--  发布时间:2012/2/13 18:05:00
--  

附件如下

 

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


--  作者:狐狸爸爸
--  发布时间:2012/2/13 18:21:00
--  
Select Case e.DataCol.Name
Case "guige"
    Dim r = e.DataRow("guige")
    If r = "" Then
        e.DataRow("kuandu") = ""
        e.DataRow("houdu") = ""
    Else
        Dim s1() As String
        s1 = r.split("*")
        e.DataRow("kuandu") = s1(0)
        e.DataRow("houdu") = s1(1)
    End If
End Select

--  作者:yacity
--  发布时间:2012/2/13 18:25:00
--  

原来是这样 好了 谢谢!