以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何根据“长x宽x高”列自动获得“长度”“宽度”“高度”？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=5158)
--  作者：木鸡
--  发布时间：2009/11/27 10:28:00
--  [求助]如何根据“长x宽x高”列自动获得“长度”“宽度”“高度”？

如何根据“长x宽x高”列自动获得“长度”“宽度”“高度”？


具体说明如下图。

谢谢！！





此主题相关图片如下：foxttt.jpg
按此在新窗口浏览图片
--  作者：木鸡
--  发布时间：2009/11/27 10:29:00
--  
先谢谢哈
--  作者：狐狸爸爸
--  发布时间：2009/11/27 10:38:00
--  
DataColChanged事件

if e.DataCol.Name = "长x宽x高"
    If e.NewValue = "" Then
         e.DataRow("长") = nothing
         e.DataRow("宽") = nothing
         e.DataRow("高") = nothing
    Else
        Dim Vals() As String = e.NewValue.Split("*")
        If Vals.Length <> 3 Then
             messageBox.Show("输入错误")
        Else
             e.DataRow("长") = Vals(0)
             e.DataRow("宽") = Vals(1)
             e.DataRow("高") = Vals(2)
        End If
    End If
End If
[此贴子已经被作者于2009-11-27 10:38:58编辑过]
--  作者：smileboy
--  发布时间：2009/11/27 10:40:00
--  
DataColChanged事件

Dim Multi As String = e.DataRow("长x宽x高")
Dim Values() as String
Values = Multi.split("*")
If e.DataCol.Name = "长x宽x高" Then
    e.DataRow("长度") = Values(0)
    e.DataRow("宽度") = Values(1)
    e.DataRow("高度") = Values(2)
End If
--  作者：木鸡
--  发布时间：2009/11/27 10:51:00
--  

哗！！！狐狸爸爸亲自写的代码，眼泪哗哗的。。。

当然，同时感谢smileboy哈