MỤC LỤC - lib

Bài Giảng Môn Lập Trình Website ASP.NetDim dvKhach_hang As New DataView(dtKhach_hang)dvKhach_hang.Sort = ViewState("SortExpression")If ViewState("SortAscending") = "false" ThendvKhach_hang.Sort &= " desc"End IfdtgKhach_hang.DataSource = dvKhach_hangdtgKhach_hang.DataBind()End SubPublic Function Doc_ds_khach_hang() As DataTableDim sKet_noi As StringsKet_noi = "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & _Server.MapPath("..\Data\QlBanSach.mdb")Dim cnKet_noi As New OleDbConnection(sKet_noi)Dim dsCSDL As New DataSet'Mở và đóng kết nối ngay khi thực hiện xongcnKet_noi.Open()Dim daBo_doc_ghi As New OleDbDataAdapter _("Select * From KHACH_HANG", cnKet_noi)cnKet_noi.Close()daBo_doc_ghi.Fill(dsCSDL, "KHACH_HANG")Return dsCSDL.Tables("KHACH_HANG")End FunctionPrivate Sub dtgKhach_hang_SortCommand(…, e …) …Dim sSap_xep As String = ViewState("SortExpression")Tài liệu hướng dẫn giảng dạyHọc phần 3 - Lập trình ứng dụng web với ASP.NET Trang 91/174Dim sHuong As String = ViewState("SortAscending")ViewState("SortExpression") = e.SortExpressionIf (e.SortExpression = sSap_xep) ThenViewState("SortAscending") = IIf(sHuong = "false", "true", "false")End IfLien_ket_du_lieu()End SubIV.2. Tạo biểu tượng sắp xếp trong cột cho DataGridSắp xếp tăng dần theo tên khách hàngPrivate Sub dtgKhach_hang_ItemDataBound(…, e …) …If e.Item.ItemType = ListItemType.Header ThenDim sSap_xep As String = ViewState("SortExpression")www.Beenvn.comBiên sọan: Dương Thành Phết Trang 133