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

1楼

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

具体该怎么写呢？

2楼

狐狸爸爸 发表于：2012/2/13 16:33:00

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

可以做个例表发上来。

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

3楼

yacity 发表于：2012/2/13 18:05:00

附件如下

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目17.table

4楼

狐狸爸爸 发表于：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

5楼

yacity 发表于：2012/2/13 18:25:00

原来是这样好了谢谢！

共5 条记录, 每页显示 10 条, 页签: [1]