主题：[求助]老师，帮我看一下自动编号这段报错

蓝老师，再费心指导一下，上面代码复制过来不执行。刚接触1个月，别嫌我啊

顺便还有一个分区面板代码问题请教，谢谢
此主题相关图片如下：o%~japq1%0on(3r$7e2fz5p.png

此主题相关图片如下：gif 2021-01-26 09-46-37.gif

 表达式：Parent(关联设备型号).英文简写

Dim dt As DataTable = DataTables("设备型号表")
Dim dc As DataCol = dt.DataCols("英文简写")
Select e.DataCol.Name
    Case ??????
        If e.DataRow.IsNull("英文简写") Then
            e.DataRow("编号") = Nothing
        Else
            Dim lb As String = e.DataRow("英文简写") & "-"
            If e.DataRow("编号").StartsWith(lb) = False '如果单据产品编号前缀不符
                Dim max As String
                Dim idx As Integer
                max = e.DataTable.Compute("Max(编号)","英文简写 = '" & e.DataRow("英文简写") & "' And [_Identify] <> " & e.DataRow("_Identify")) '取得该类别代号的最大产品编号
                If max > "" Then '如果存在最大产品编号
                    idx = CInt(max.Substring(max.Length -4,4)) + 1
                Else
                    idx = 1 '否则顺序号等于1
                End If
                e.DataRow("编号") = lb & Format(idx,"0000")
            End If
        End If

 
此主题相关图片如下：qq图片20210126114914.png

 两个问题一起帮我看看吧，蓝蓝老师

 漂亮！兰老师厉害！！以后还得请您多费心调教啊