Những cái này mình học hỏi, sưu tầm được trong quá thực hiện đồ án tốt nghiệp, giờ gửi lên đây để hỗ trợ các bạn trong quá trình làm đồ án. Mô hình 3 lớp Có thể xem bài viết này http://sinhvienit.net/forum/c-bai-giang-thiet-ke-theo-mo-hinh-3-lop-source-code.15234.html Tạo phím tắt chức năng Mã: Protected Overloads Overrides Function ProcessCmdKey(ByRef msg As Message, ByVal keyData As Keys) As Boolean If keyData = (Keys.Delete) Then btndel_Click() Return True End If If keyData = (Keys.Control Or Keys.P) Then print() Return True End If If keyData = (Keys.Control Or Keys.A) Then SelectAll() Return True End If Return MyBase.ProcessCmdKey(msg, keyData) End Function Lấy giá trị (chỉ định) những dòng được chọn Mã: Private Function SelectedValue() As List(Of String) Dim Rows As New List(Of String) Dim I As Integer Dim view As GridView = getGirdView() Dim selectedRows As Integer() = View.GetSelectedRows() For I = 0 To View.SelectedRowsCount - 1 Dim rowHandle As Integer = selectedRows(I) Rows.Add(View.GetRowCellValue(rowHandle, "maDV")) Next Return Rows End Function Sửa trực tiếp trên gridview Mã: Private Sub gridView_ValidateRow(ByVal sender As Object, ByVal e As DevExpress.XtraGrid.Views.Base.ValidateRowEventArgs) Handles GridView2.ValidateRow, GridView3.ValidateRow, GridView4.ValidateRow Dim view As GridView = TryCast(sender, GridView) If Not view.IsNewItemRow(e.RowHandle) Then If (_phanLoai = "dstt") Then Dim maDV As String = Me.GridView2.GetRowCellValue(Me.GridView2.FocusedRowHandle, "maDV") Dim ngayQD As DateTime = Me.GridView2.GetRowCellValue(Me.GridView2.FocusedRowHandle, "ngayQD") Dim ghiChu As String = Me.GridView2.GetRowCellValue(Me.GridView2.FocusedRowHandle, "ghiChu") ttdvblo.SuaTruongThanh(maDV, ngayQD, ghiChu) DanhSach_DV_TruongThanh() ElseIf _phanLoai = "dscsh" Then Dim maDV As String = Me.GridView3.GetRowCellValue(Me.GridView3.FocusedRowHandle, "maDV") Dim ngayQD As DateTime = Me.GridView3.GetRowCellValue(Me.GridView3.FocusedRowHandle, "ngayQD") Dim dvDen As String = Me.GridView3.GetRowCellValue(Me.GridView3.FocusedRowHandle, "dvChuyenDen") ttdvblo.SuaChuyenSH(maDV, ngayQD, dvDen) DanhSach_DV_ChuyenSinhHoat() ElseIf _phanLoai = "dskt" Then Dim maDV As String = Me.GridView4.GetRowCellValue(Me.GridView4.FocusedRowHandle, "maDV") Dim ngayQD As DateTime = Me.GridView4.GetRowCellValue(Me.GridView4.FocusedRowHandle, "ngayQD") Dim lyDo As String = Me.GridView4.GetRowCellValue(Me.GridView4.FocusedRowHandle, "lyDo") ttdvblo.SuaKhaiTru(maDV, ngayQD, lyDo) DanhSach_DV_KhaiTru() End If End If End Sub Sự kiện khi double click vào một dòng trên gridview Mã: 'double click Private Sub gridView1_DoubleClick(ByVal sender As Object, ByVal e As EventArgs) Handles GridView1.DoubleClick, GridView2.DoubleClick, GridView3.DoubleClick, GridView4.DoubleClick, GridView9.DoubleClick Dim view As GridView = CType(sender, GridView) Dim pt As Point = view.GridControl.PointToClient(Control.MousePosition) DoRowDoubleClick(view, pt) End Sub Private Sub DoRowDoubleClick(ByVal view As GridView, ByVal pt As Point) frmThongTinDoanVien._maDV = GetmaDV() Dim frmThongTinDV As New frmThongTinDoanVien frmThongTinDoanVien.Show(Me) End Sub Menu chuột phải Xem bài viết này http://documentation.devexpress.com...raGridViewsGridGridView_PopupMenuShowingtopic Tạm thời mới nhớ được có chừng đó. Có thắc mắc, yêu cầu gì các bạn cứ nói nhé