15-6-2008 8:26:57
Public Shared Function CreateStyle() As DataGridTableStyle
Dim mStyle As New DataGridTableStyle
With mStyle
HeaderFont = New Font("Arial", 9, FontStyleBold)
HeaderBackColor = ColorightBlue
AlternatingBackColor = ColorCornsilk
PreferredowHeight = 24
AllowSorting = True
End With

eturn mStyle
End Function
Public Shared Function CreateCollumnTextBoxStyle(ByVal mapname As String, _
ByVal header As String, ByVal wid As Integer, ByVal nulltext As String, _
ByVal align As HorizontalAlignment)

Dim colStyle As New DataGridTextBoxColumn
With colStyle
MappingName = mapname
HeaderText = header
Width = wid
NullText = nulltext
Alignment = align
End With

eturn colStyle
End Function
Public Shared Function CreateCollumnCheckBoxStyle(ByVal mapname As String, _
ByVal header As String, ByVal wid As Integer)

Dim colStyle As New DataGridBoolColumn
With colStyle
MappingName = mapname
HeaderText = header
Width = wid
End With

eturn colStyle
End Function

15-6-2008 8:27:55
Để hiển thị nó lên dùng cái này

Private Sub FormatGrid()
Dim style As New DataGridTableStyle
style = USF.CreateStyle()

Dim colStyle1 As New DataGridTextBoxColumn
colStyle1 = USF.CreateCollumnTextBoxStyle("Ten_khoa", "Khoa", 80, "", HorizontalAlignment.Left)
Dim colStyle2 As New DataGridTextBoxColumn
colStyle2 = USF.CreateCollumnTextBoxStyle("Ma_gv", "Mã GV", 50, "", HorizontalAlignment.Left)
Dim colStyle3 As New DataGridTextBoxColumn
colStyle3 = USF.CreateCollumnTextBoxStyle("Ho_ten", "Tên GV", 160, "", HorizontalAlignment.Left)

style.GridColumnStyles.AddRange(New DataGridColumnStyle() {colStyle1, colStyle2, colStyle3})
dg.TableStyles.Add(style)
End Sub

15-6-2008 8:29:11
Cái formảtgid chỉ cần dùng 1 lần đầu tiên khi form load, còn muốn hiển thị lại dữ liệu cũng như lần đầu hiển thị dữ liệu khi form load thì dùng cái này

Private Sub Reload()
Try
Dim strSQL As String = "SELECT GIAO_VIEN.*, KHOA.Ten_khoa " _
+ " FROM GIAO_VIEN INNER JOIN " _
+ " KHOA ON GIAO_VIEN.ID_khoa = KHOA.ID_khoa" _
+ " ORDER BY Ho_ten"
Dim dt As DataTable = UDB.SelectTable(strSQL)

dt.DefaultView.AllowDelete = False
dt.DefaultView.AllowEdit = False
dt.DefaultView.AllowNew = False
dg.DataSource = dt.DefaultView
Catch ex As Exception
UCommon.ThongBao(ex.Message)
End Try
End Sub

15-6-2008 8:30:4
Muốn moi dữ liệu mỗi khi bấm vào 1 dòng nào đó của datagrid ra thì dùng cái hàm này
------------------
Private Sub SetUI(ByVal idx As Integer)
Try
Dim dv As DataView = dg.DataSource
Me.ID_gv = CInt(dv(idx)("ID_gv"))
txtHoTen.Text = dv(idx)("Ho_ten").ToString()
txtMa.Text = dv(idx)("Ma_gv").ToString()
dtpNgaysinh.Value = CDate(dv(idx)("Ngay_sinh"))
txtQue.Text = dv(idx)("Que_quan").ToString()
txtTen.Text = dv(idx)("Ten").ToString()
cboBomon.SelectedValue = CInt(dv(idx)("ID_bm"))
cboCapbac.SelectedValue = CInt(dv(idx)("ID_capbac"))
cboChucdanh.SelectedValue = CInt(dv(idx)("ID_chucdanh"))
cboChucvu.SelectedValue = CInt(dv(idx)("ID_chucvu"))
cboDantoc.SelectedValue = CInt(dv(idx)("ID_dantoc"))
cboHocham.SelectedValue = CInt(dv(idx)("ID_hocham"))
cboHocvi.SelectedValue = CInt(dv(idx)("ID_hocvi"))
cboKhoa.SelectedValue = CInt(dv(idx)("ID_khoa"))
If (CBool(dv(idx)("Nam")) = True) Then
radNam.Checked = True
Else
radNu.Checked = True
End If
Catch ex As Exception
End Try
End Sub

-----------------
và đây nữa
-----------------
Private Sub dg_CurrentCellChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles dg.CurrentCellChanged
btnThem.Enabled = False
Dim idx As Integer = dg.CurrentRowIndex
If idx < 0 Then Return
Me.SetUI(idx)
End Sub
--------------------
tý quên

16-10-2008 19:37:27
hì hì !! xin lỗi chút nha !! trên thực tế ở phần properties nó cho phép chỉnh sữa lưới của win form hay lưới của web rồi !!! chẳng qua do mọi người ko chịu tìm hiểu có video hướng dẫn nhưng bằng english để bữa nào rảnh nén lại gửi cho mọi người coi !!
---

7-12-2008 16:7:55
nén luôn đê toàn thấy nói chả thấy làm gì ?
---