主题：窗口代码错误

老师，我想实现给 项目分项 打钩后，在项目号后加上1、2、3...

 

下面一段代码有什么错误吗？

 

 bh = dr("客户简称") & "-" & dr("车型名称") & "-" & Format(d,"yyMMdd") '生成项目号前缀
    If e.Form.Controls("CheckBox2").checked = False Then
        dr("项目") = bh
    Else                     '项目分项打钩
        If dr("项目").StartsWith(bh) = False '如果项目前缀不符
            Dim max2 As String
            Dim idx2 As Integer
            max2 = DataTables("项目").Compute("Max2(项目)","项目 like '" & bh & "%'") '取得项目号前缀
            If max2 > "" Then '如果存在最大项目号
                idx2 = CInt(max2.Substring(bh.Length,1)) + 1 '获得最大项目号的最后一位顺序号,并加1
            Else
                idx2 = 1 '顺序号等于1
            End If
            dr("项目") = bh & Format(idx2,"0")
        End If
    End If

此主题相关图片如下：spximage2.jpg


此主题相关图片如下：spximage3.jpg

max2 = DataTables("项目").Compute("Max(项目)","项目 like '" & bh & "%'") '取得项目号前缀