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

这个怎么修改？

Select e.DataCol.Name

Case "科目代码"

If e.DataRow.IsNull("科目代码") Then

e.DataRow("科目层级") = Nothing

Else

If e.DataRow.Text.Length = 4 Then '输入内容的长度达到4

e.DataRow("科目层级") = "一级科目"

End If

End Select

e.DataRow("科目层级").Length

If e.DataRow("科目代码").Length = 4 Then '输入内容的长度达到4

老师，我这里有个判断，我用下面的逻辑是可以的。

Select e.DataCol.Name

Case "是否末级科目","一级科目"

If e.DataRow("是否末级科目")= "末级" And e.DataRow.IsNull("一级科目")=False Then

e.DataRow("末级科目名称") = e.DataRow("一级科目")

Else If e.DataRow("是否末级科目")= "末级" And e.DataRow.IsNull("二级科目")=False Then

e.DataRow("末级科目名称") = e.DataRow("二级科目")

Else If e.DataRow("是否末级科目")= "末级" And e.DataRow.IsNull("三级科目")=False Then

e.DataRow("末级科目名称") = e.DataRow("三级科目")

Else If e.DataRow("是否末级科目")= "末级" And e.DataRow.IsNull("四级科目")=False Then

e.DataRow("末级科目名称") = e.DataRow("四级科目")

Else If e.DataRow("是否末级科目")= "末级" And e.DataRow.IsNull("五级科目")=False Then

e.DataRow("末级科目名称") = e.DataRow("五级科目")

End If

End Select

但是如果表变成这样，这个判断就有问题了，应该怎么写的？

就是要把末级对应的科目准确的填充到 “末级科目名称” 列

反过来从五级开始判断

Select e.DataCol.Name

Case "是否末级科目","一级科目"

If e.DataRow("是否末级科目")= "末级"

if e.DataRow.IsNull("五级科目")=False Then

e.DataRow("末级科目名称") = e.DataRow("五级科目")

ElseIf e.DataRow.IsNull("四级科目")=False Then

e.DataRow("末级科目名称") = e.DataRow("四级科目")

Elseif .........

……

End If

End Select

主题：字符长度判断