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


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

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

帅哥,在线噢!
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111405 积分:567095 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/3/27 9:24:00 [显示全部帖子]

参考:http://www.foxtable.com/webhelp/topics/0245.htm


Dim s As String  ="-8*250,-6*3450"
Dim r As Row
For Each s1 As String In s.Split(",")
    r = Tables("A").AddNew
    Dim ar() As String = s1.Split("*")
    r("第一列") = sr(0)
    r("第二列") = sr(1)
Next

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


加好友 发短信
等级:超级版主 帖子:111405 积分:567095 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/3/28 16:16:00 [显示全部帖子]

如果完全看不懂代码的,建议先学习基础:http://www.foxtable.com/webhelp/topics/1592.htm

如果看的懂的,把您改后的代码发上来。

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


加好友 发短信
等级:超级版主 帖子:111405 积分:567095 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/3/29 20:28:00 [显示全部帖子]

代码在表格?窗口?什么事件的?

截图看看表格实际存储的数据。"钢板型号"存储的是【-250*8】,还是【-250*8;-300*6;....】多个?

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


加好友 发短信
等级:超级版主 帖子:111405 积分:567095 威望: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

然后重置一下列

 回到顶部