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

Dim jm As String = "'" & dg("级码") & "%'"

Dim lj As String = "'" & e.Node.fullpath & "%'"

For Each de In dt.Select("目录层级 >= '" & i & "' And 上级级码 Like '" & jm & "' And 目录 Like '" & lj & "'" ) '历遍目录列中所有需要重命名的行

Dim ml2 As String = de("目录").Substring(pl) '在选出的行的目录列中,取将本层目录后的值

de("目录") = pth & e.newtext & ml2 '将需要更改行中,目录列需要修改的部分修改为新名称

de("文件名") = e.NewText '将本行文件名修改为新名称

上面的代码是在窗口中目录树aftereditnode事件代码的一部分,每次运行到黄色背景的这面代码时,总是报错:

<语法错误:“1”运算符后缺少操作数。>

是不是我这行的表达式写错了?

还请大神解惑!谢谢!

主题：[求助]目录树aftereditnode代码报错