Foxtable(狐表)用户栏目专家坐堂 → [求助]怎么拆分数值


  共有3573人关注过本帖树形打印复制链接

主题:[求助]怎么拆分数值

帅哥哟,离线,有人找我吗?
hanlingli111999
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:260 积分:1957 威望:0 精华:0 注册:2020/3/7 22:50:00
  发帖心情 Post By:2020/3/29 22:39:00 [只看该作者]

For Each r As Row In Tables("拆分表").rows
    If r("钢板型号") = "" Then
        r("板宽") = Nothing
               r("板厚") = Nothing
           Else
        Dim ary() As String =  r("钢板型号") .split("X")
       
     r("板宽") = ary(0).SubString(1)/1000
                r("板厚") = ("钢板"&ary(1)&"厚")
    End If
Next

 回到顶部
帅哥,在线噢!
有点蓝
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105491 积分:536446 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/3/29 23:08:00 [只看该作者]

如果是在表事件不应该这样用,效率非常低,这种代码适合在按钮里使用

"拆分表"datacolchanged事件
if e.datacol.name = "钢板型号"
dim r as datarow = e.datarow
    If r.isnull("钢板型号") Then
        r("板宽") = Nothing
               r("板厚") = Nothing
           Else
        Dim ary() As String =  r("钢板型号") .split("X")
       
     r("板宽") = ary(0).SubString(1)/1000
if ary.length > 1 then
                r("板厚") = ("钢板"&ary(1)&"厚")
end if
    End If
end if

然后重置一下列

 回到顶部
总数 12 上一页 1 2