Сайт создан по материалам книги Г. Бучека "Учебный курс по ASP.NET".
Москва: BHV, 2002.
Создатель сайта-выпускник курсов web-дизайнеров Сафоновского Колледжа Информационных Технологий Максим Котликов
Создатель сайта-выпускник курсов web-дизайнеров Сафоновского Колледжа Информационных Технологий Максим Котликов
Страница Турнирная таблица
Страница Календарь и результаты
Страница Команда
Страница Игрок
Страница Новости
и связать с ней другой элемент DataGrid:
-
dgEastConference.DataSource = _
DSPageData.Tables("EastConf").DefaultView
dgEastConference.DataBind()
-
Sub Sort_GridWestCon(ByVal Sender as Object, _
ByVal E as DataGridSortCommandEventArgs)
Dim DBConn as OleDbConnection
Dim DBCommand As OleDbDataAdapter
Dim DSPageData as New DataSet
Dim SortClause as String
If E.SortExpression.ToStringO = "Record" Then
SortClause = "Order By Convert(float, NumWins) / " _
& "(NumWins + NumLoses) DESC"
Elself E.SortExpression.ToStringO = "Wins" Then
SortClause = "Order By NumWins DESC"
Elself E.SortExpression.ToStringO = "Loses" Then
SortClause = "Order By NumLoses DESC"
Else
SortClause = "Order By TeamCity"
End If
DBConn - New OleDbConnection("Provider=sqloledb;" _
& "server=localhost;" _
& "Initial Catalog-INETC6;" _
& "User Id=sa;" _
& "Password=yourpassword;")
DBCommand = New OleDbDataAdapter _
("Select '<A HREF=""./team.aspx?TeamID=' + " _
& "Convert(varchar(10), TeamID) + '"">' " _
& "+ TeamCity + ' ' + TeamNickName + '' as " _
& "[Западная подгруппа (Щелкните для получения дополнительной" _
& "информации)], " _
& "Round((Convert(float, NumWins) / " _
& "(NumWins + NumLoses)) * 100, 0) as [Очки], "
& "NumWins as [Победы], NumLoses as [Поражения] " _
& "From Teams " _ "
& "Where Conference = 'Западная' " _
& SortClause, DBConn)
DBCommand.Fill(DSPageData, _
"WestConf")
dgWestConference.DataSource = _
DSPageData.Tables("WestConf").DefaultView
dgWestConference.DataBind()
End Sub
-
Dim SortClause as String
-
If E.SortExpression.ToString() - "Record" Then
-
SortClause = "Order By Convert(float, NumWins) / " _
& "(NumWins + NumLoses) DESC"
-
Elself E.SortExpression.ToString() = "Wins" Then
SortClause - "Order By NumWins DESC"
-
Elself E.SortExpression.ToString() = "Loses" Then
SortClause - "Order By NumLoses DESC"
-
Else
SortClause = "Order By TeamCity"
End If
-
DBCommand = New OleDbDataAdapter _
("Select '<A HREF=""./team.aspx?TeamID=' + "
& "Convert(varchar(10), TeamID) + '"">' " _
& "+ TeamCity + ' ' + TeamNickName + '' as "
& "[Западная подгруппа (Щелкните для получения дополнительной" _
& "информации)], " _
& "Round«Convert(float, NumWins) / " _
& "(NumWins + NumLoses)) * 100, 0) as [Очки], " _
& "NumWins as [Победы], NumLoses as [Поражения] " _
& "From Teams " _
& "Where Conference = 'Западная' " _
& SortClause, DBConn)
 |
 |
