主题：求教，如何自动编号

Select e.DataCol.Name
    Case "所属地区", "设备类型"
        If e.DataRow.IsNull("所属地区") Then
            e.DataRow("设备编号") = Nothing
        Else
            Dim lb As String = e.DataRow("所属地区") &  e.DataRow("设备类型") & "-" '生成编号的前缀
            If e.DataRow("设备编号").StartsWith(lb) = False '如果单据设备编号前缀不符
                Dim max As String
                Dim idx As Integer
                max = e.DataTable.Compute("Max(设备编号)","所属地区 = '" & lb & "'") '取得该所属地区的最大设备编号
                If max > "" Then '如果存在最大设备编号
                    idx = CInt(max.Substring(2,3)) + 1 '获得最大设备编号的后三位顺序号,并加1
                Else
                    idx = 1 '否则顺序号等于1
                End If
                e.DataRow("设备编号") = lb & Format(idx,"000")
            End If

        End If
End Select

 

我这串代码，不能编号

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目30.table

"所属地区 = '" & lb & "'"        地区不能等于地区加设备类型加-吧？

谢谢了知道错那里了 =  和 Like 的区别

你错的地方可不止这里哦，好几处错了。

错的可不少