主题：请教关于分割字符串。

 
此主题相关图片如下：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

 

 

具体该怎么写呢？

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

可以做个例表发上来。

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

附件如下

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目17.table

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

原来是这样 好了 谢谢！