WSS3SDK之：如何从列表中获取数据

如果要从列表中取数据，我们可以从实例化SPWeb开始深入，通过对象模型得到列表的SPListItemCollection。您返回后，当我们得到所有列表项目的集合后，可以通过迭代遍历整个集合，并使用索引(indexer)返回特定字段(或叫做栏,field)的值。

下面的例子返回指定事件列表的所有项。它假定存在一个文本框，可以用来输入事件列表的名称。

VB

Dim mySite As SPWeb = SPContext.Current.Web

Dim listItems As SPListItemCollection = mySite.Lists(TextBox1.Text).Items

Dim i As Integer

For i = 0 To listItems.Count - 1

Dim item As SPListItem = listItems(i)

Response.Write(SPEncode.HtmlEncode(item("Title").ToString()) & " :: " _

& SPEncode.HtmlEncode(item("Location").ToString()) & " :: " _

& SPEncode.HtmlEncode(item("Begin").ToString()) & " :: " _

& SPEncode.HtmlEncode(item("End").ToString()) & "<BR>")

Next i

C#

SPWeb mySite = SPContext.Current.Web;

SPListItemCollection listItems = mySite.Lists[TextBox1.Text].Items;

for (int i=0;i<listItems.Count;i++)

{

SPListItem item = listItems[i];

Response.Write(SPEncode.HtmlEncode(item["Title"].ToString()) + " : " +

SPEncode.HtmlEncode(item["Location"].ToString()) + " : " +

SPEncode.HtmlEncode(item["Begin"].ToString()) + " : " +

SPEncode.HtmlEncode(item["End"].ToString()) + "<BR>");

}

上面的例子需要引用Microsoft.SharePoint和Microsoft.SharePoint.Utilities命名空间。

在例子中，索引既用在返回用户指定的列表，又用于返回列表中特定的项。为了返回该项目， indexers必须指定每一栏的名称，来得到对应栏的值。在本例中，所有的栏名称来自一个普通的事件列表。

您也可以使用SPList类的GetItems方法返回的某列表的数据项的一个子集。下面的例子只返回Stock栏的值超过100 的标题栏的内容。

VB

Dim mySite As SPWeb = SPContext.Current.Web

Dim list As SPList = mySite.Lists("Books")

Dim query As New SPQuery()

query.Query = "<Where><Gt><FieldRef Name='Stock'/><Value Type='Number'>100</Value></Gt></Where>"

Dim myItems As SPListItemCollection = list.GetItems(query)

Dim item As SPListItem

For Each item In myItems

Response.Write(SPEncode.HtmlEncode(item("Title").ToString()) & "<BR>")

Next item

C#

SPWeb mySite = SPContext.Current.Web;

SPList list = mySite.Lists["Books"];

SPQuery query = new SPQuery();

query.Query = "<Where><Gt><FieldRef Name='Stock'/><Value Type='Number'>100</Value></Gt></Where>";

SPListItemCollection myItems = list.GetItems(query);

foreach (SPListItem item in myItems)

{

Response.Write(SPEncode.HtmlEncode(item["Title"].ToString()) + "<BR>");

}

上面的例子需要引用Microsoft.SharePoint和Microsoft.SharePoint.Utilities命名空间。

该例子假设存在一个Books列表,包含了一个名为Stock的列，类型为数值。

前面的示例使用构造器实例化了一个SPQuery对象。然后为query对象的Query属性指定了一个协同应用标记语言核心架构(CAML，Collaborative Application Markup Language Core Schemas)格式的字符串，指定query的XML内容（换句话说，就是Where元素）。然后，query对象将传递给在GetItems方法，来返回和显示列表项。

跨列表查询



您可以执行跨列表查询来使查询更有效率，跨越多个网站获取数据。以下示例使用SPSiteDataQuery类来定义查询，然后使用GetSiteData方法返回所有Status栏的值等于“Completed” 的列表项。

VB

Dim webSite As SPWeb = SPContext.Current.Web

Dim query As New SPSiteDataQuery()

query.Lists = "<Lists ServerTemplate=""107"" />"

query.Query = "<Where><Eq><FieldRef Name=""Status""/>" + "<Value Type=""Text"">Completed</Value></Eq></Where>"

Dim items As System.Data.DataTable = webSite.GetSiteData(query)

Dim item As System.Data.DataRow

For Each item In items

Response.Write((SPEncode.HtmlEncode(item("Title").ToString()) + "<BR>"))

Next item

C#

SPWeb webSite = SPContext.Current.Web;

SPSiteDataQuery query = new SPSiteDataQuery();

query.Lists = "<Lists ServerTemplate=/"107/" />";

query.Query =

"<Where><Eq><FieldRef Name=/"Status/"/>" +

"<Value Type=/"Text/">Completed</Value></Eq></Where>";

System.Data.DataTable items = webSite.GetSiteData(query);

foreach (System.Data.DataRow item in items)

{

Response.Write(SPEncode.HtmlEncode(item["Title"].ToString()) + "<BR>");

}

上面的例子需要引用Microsoft.SharePoint和Microsoft.SharePoint.Utilities命名空间。