[求助]怎么拆分数值 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有4845人关注过本帖树形打印复制链接主题：[求助]怎么拆分数值

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

有点蓝

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：110334 积分：561518 威望：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

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