- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 请教关于分割字符串。 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=16415)
-- 发布时间：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
--
我没有看出你的代码有问题。
可以做个例表发上来。
提示： 千万不要整个项目传上来，单独新建一个项目，导入这个表后传上来即可。
-- 发布时间：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
-- 发布时间：2012/2/13 18:25:00
--
原来是这样 好了 谢谢！