以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 字符代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=58888)
--  作者：建筑人生
--  发布时间：2014/10/25 21:43:00
--  [求助] 字符代码

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 这条代码

[此贴子已经被作者于2014-10-25 21:43:08编辑过]
--  作者：有点甜
--  发布时间：2014/10/26 9:31:00
--  
max = Tables("主窗口_总表").Compute("Max(编号)","len(编号) = " & (len(bh)+3))   \'取得该类别的最大编号