| Thành viên | Nội dung |
dotnetvn
dotnet.vn
72 bài
| Public Shared Function CreateStyle() As DataGridTableStyle
Dim mStyle As New DataGridTableStyle
With mStyle
.HeaderFont = New Font("Arial", 9, FontStyle.Bold)
.HeaderBackColor = Color.LightBlue
.AlternatingBackColor = Color.Cornsilk
.PreferredRowHeight = 24
.AllowSorting = True
End With
Return 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
Return 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
Return colStyle
End Function
|
dotnetvn
dotnet.vn
72 bài
| Để 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
|
dotnetvn
dotnet.vn
72 bài
| 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
|
dotnetvn
dotnet.vn
72 bài
| 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 
|
chinh
1 bài
|    
|
kimlong008
25 bài
| 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 !!
---
|
kaka
Thiên thần Kaka
36 bài
| nén luôn đê toàn thấy nói chả thấy làm gì ?
---
|
 |