2011-07-08 37 views
0

我們有一個列表,當嘗試向它添加新記錄時會出現上述錯誤。這裏是整個類:Sharepoint 2007:價值不在預期範圍內

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塊。任何人都可以幫助我診斷和補救上述代碼塊嗎?非常感謝您的幫助。

+0

你可以添加堆棧跟蹤嗎? –

回答

0

根據我的分析,只有您指定的列名可能會出現此錯誤。驗證您的專欄名稱並與我分享您的發現。

+0

也getFullReportNo可以拋出這個異常,因爲我們不知道里面是什麼。但是堆棧跟蹤會揭示這一點。 –

相關問題