主题：[求助] 字符代码

Dim max As String
        Dim idx As Integer

Dim bh As Integer =tv.SelectedNode.ParentNode.Name 
       

 max = Tables("主窗口_总表").Compute("Max(编号)","len(编号) ='"& len(bh)+3)   '取得该类别的最大编号

If max <>""Then '如果存在最大编号           
            idx = CInt(max.Substring(len(bh),3)) + 1
            
        Else   

            idx = 1 '否则顺序号等于1
        End If

红色字体错在哪里，为什么都是执行idx = 1 这条代码