Question

我们有一个列表，在尝试向其添加新记录时会出现上述错误。这是完整的课程：

Partial Class NextExclusionNo
Inherits System.Web.UI.Page


Private listName As String = "Exclusions List"

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    Dim curYear As String = Now.Year.ToString
    curYear = Mid(curYear, 3)

    Dim curMonth As String = Now.Month.ToString
    If curMonth.Length < 2 Then
        curMonth = "0" & curMonth
    End If

    Dim curDay As String = Now.Day.ToString
    If curDay.Length < 2 Then
        curDay = "0" & curDay
    End If

    Dim curObsPrefix As String = "E" & curYear & "-" & curMonth & "-"

    Try
        Using site As New spSite("http://localhost/exclusions")

            Using web As spWeb = site.openweb()

                Dim list As SPList = web.Lists(listName)

                Dim query As New spQuery
                query.query = "<Where><BeginsWith><FieldRef Name='Exclusion_x0020__x0023_' />" & _
                "<Value Type='Text'>" & curObsPrefix & "</Value>" & _
                "</BeginsWith></Where><OrderBy><FieldRef Name='Exclusion_x0020__x0023_' Ascending='False' /></OrderBy>"


                Dim listItems As spListItemCollection = list.getItems(query)

                Dim newReportNo As Integer = 1

                If listItems IsNot Nothing AndAlso listItems.count > 0 Then
                    Dim lastReportNo = listItems.item(0).item("Exclusion_x0020__x0023_")
                    Dim licBits() As String = lastReportNo.split("-")
                    Dim lastNo As Integer = CInt(licBits(2))
                    newReportNo = lastNo + 1
                End If

                Response.Write(getFullReportNo(newReportNo, curObsPrefix))

            End Using

        End Using

    Catch ex As Exception
        Response.Write("Error:" & ex.Message)
    End Try

End Sub

Private Function getFullReportNo(ByRef licNo As Integer, ByRef prefix As String) As String

    Dim lic As String = licNo.ToString
    While lic.Length < 3
        lic = "0" & lic
    End While

    Return prefix & lic

End Function



End Class

以上内容嵌套在Try / Catch块中。任何人都可以帮我诊断并修复上述代码块吗？非常感谢您的帮助。

Answer 1

根据我的分析，您指定的列名称可能会出现此错误。验证您的专栏名称并将您的发现分享给我。

Sharepoint 2007：价值不在预期范围内

1 个答案: