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

有一张表，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

End If

现在需要规则为类【Ncode】非空且列【类型】包含“日常性”，这样的话，这句代码For Each dr As DataRow In DataTables("List").Select("Ncode<>'' and Ncode is not null")该如何修改

主题：列拆分求助