ASP.NET. Учебный курс (Г.Бучек.)

? "• Order By FriendlyName " _ , DBConn)

и помещаются в объект DataSet:

DBCommand.Fill(DSPageData, _ "Stores")

к которому привязывается элемент DataGrid:

dgStores.DataSource -

DSPageData.Tables("Stores").DefaultView dgStores.DataBind()

Третья процедура на этой странице выполняется при щелчке на одном из заголовков столбцов в элементе DataGrid. Она обеспечивает сортировку данных по соответствующему столбцу:

Sub Sort_Grid(ByVal Sender as Object, _

ByVal Б as DataGridSortCommandEventArgs) Dim DBConn as OleDbConnection Dim DBCommand As OleDbDataAdapter Dim DSPageData as New DataSet Dim SortField as String

If E.SortExpression.ToStringO - "Название" Then

SortField - "FriendlyName" Elself E.SortExpression.ToStringO - "Адрес" Then SortField - "StoreAddress"

Else

SortField « "StoreDirections" End If

DBConn - New OleDbConnection("Provider-sqloledb;" _ ? "server-localhost;" ? "Initial Catalog-INETC3;" ? "User Id-sa;" ? "Password-yourpassword;") DBCommand - New OleDbDataAdapter

("Select FriendlyName as [Название], " _ ? "StoreAddress as [Адрес], " ? "StoreDirections as [Как проехать] " ? "From StoreLocations Where "

? "ZipCode - '" ? ddlZipCode.SeXefctedltem.Text _ ? "' Order By " ? SortField _ , DBConn) DBCommand.Fill(DSPageData,

"Stores") dgStores.DataSource -

DSPageData.Tables("Stores").DefaultView dgStores.DataBind()

End Sub

Объявляется переменная для хранения имени поля, по которому выполняется сортировка данных:

Dim SortField as String >:г.-к»

Заголовок столбца, на котором щелкнул посетитель, определяется посредством объекта SortExpression. Следующий оператор проверяет, не щелкнул ли посетитель на заголовке столбца с названием магазина:

If E.SortExpression.ToStringO - "Название" Then