| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 列拆分求助 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=195850) |
| -- 作者：timber83 -- 发布时间：2025/3/14 16:18:00 -- 列拆分求助 有一张表，list，表属性加载afterload 设置 Dim adr As DataRow For Each dr As DataRow In DataTables("List").Select("Ncode<>\'\' and Ncode is not null") If dr IsNot Nothing Then For Each s1 As String In dr("H").Split(",") For Each s2 As String In dr("F").Split(",") For Each s3 As String In dr("O").Split(",") For Each s4 As String In dr("日常性层级").Split(",") adr = dt.AddNew() adr("Ncode") = dr("Ncode") adr("H") = s1 adr("F") = s2 adr("O") = s3 adr("项目") = dr("项目") adr("内容") = dr("内容") adr("risk") = dr("risk") adr("way") = dr("way") adr("日常性层级") = s4 Next Next Next Next End If Next 现在需要规则为类【Ncode】非空且 列【类型】包含“日常性”，这样的话，这句代码For Each dr As DataRow In DataTables("List").Select("Ncode<>\'\' and Ncode is not null")该如何修改
|
| -- 作者：有点蓝 -- 发布时间：2025/3/14 16:24:00 -- For Each dr As DataRow In DataTables("List").Select("Ncode<>\'\' and Ncode is not null and 类型 like \'%日常性%\'") |