Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何有规律的数据进行拆分


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

主题：如何有规律的数据进行拆分
帅哥哟，离线，有人找我吗？
timber83
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：60 积分：593 威望：0 精华：0 注册：2022/9/5 21:00:00 		如何有规律的数据进行拆分  发帖心情 Post By：2025/1/24 17:01:00 [只看该作者]

表A, 有一列【伤亡人数】，如下
 事故号      伤亡人数
1          死亡1人,受伤-人,失踪22人
2          死亡101人,受伤-人,失踪-人
3          死亡-人,受伤50人,失踪-人
4          死亡1人,受伤-人,失踪-人
表B 
事故号      死亡人数    受伤人数     失踪人数

如何将伤亡人数的数据填充表B,形成如下结果
 事故号      死亡人数    受伤人数     失踪人数
1               1                -               22
2             101              -               -
3               -               50              -
4                1                -               -
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112018 积分：570268 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2025/1/24 17:25:00 [只看该作者]

Dim s As String = "死亡1人,受伤-人,失踪22人"
Dim ss() As String = s.Split(",")
For Each a As String In ss
    Dim b As String = Left(a, 2)
    Dim c As String = a.Replace(b, "").Replace("人", "")
    Output.Show(b & "人数=" & c)
Next 
 回到顶部
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：892 积分：6153 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2025/1/25 17:39:00 [只看该作者]

If e.DataCol.Name = "分组统计" Then
    If e.DataRow("分组统计") = True Then 
        For Each dr1 As DataRow In DataTables("表11").select("分组统计 = true") 
            Dim dr2 As DataRow = DataTables("表12").find("项目编号='" & dr1("项目编号") & "'") 
            If dr2 Is Nothing Then 
                '’ Dim s As String = "死亡1人,受伤-人,失踪22人"
                Dim s As String = dr1("战报主要情况")
                Dim ss() As String = s.Split(",")
                For Each a As String In ss
                    Dim b As String = Left(a, 2)
                    Dim c As String = a.Replace(b, "").Replace("人", "")
                    '’  Output.Show(b & "人数=" & c)                    
                    dr2 = DataTables("表12").AddNew() 
                    dr2("项目编号") = dr1("项目编号") 
                    dr2("死亡人数") = ss(0)
                    dr2("受伤人数") = ss(1)
                    dr2("失踪人数") = ss(2)

                   '’ 老师, 这里如何将数据C填到对应的列中？
                Next 
            End If 
        Next 
    Else
        DataTables("表12").deletefor("项目编号 = '" & e.DataRow("项目编号") & "'") 
    End If
End If
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112018 积分：570268 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2025/1/26 9:40:00 [只看该作者]

           If dr2 Is Nothing Then 
                '’ Dim s As String = "死亡1人,受伤-人,失踪22人"
                Dim s As String = dr1("战报主要情况")
                Dim ss() As String = s.Split(",")
                    dr2 = DataTables("表12").AddNew() 
                    dr2("项目编号") = dr1("项目编号")
                For Each a As String In ss
                    Dim b As String = Left(a, 2)
                    Dim c As String = a.Replace(b, "").Replace("人", "")
                    '’  Output.Show(b & "人数=" & c)                    
                    dr2(b & "人数") =  c
                Next 
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 4 次数据查询