1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54
|
Public Class FrmFicheClient
Private _da As MySqlDataAdapter
Private _ds As New CTFDataSet
Public Sub Chrmt_Cotisation()
Dim _da As New MySqlDataAdapter("SELECT * FROM tblmembrescotisations where IdClient = '" & IdClient & "'", My.Settings.CTFConnectionString)
_da.Fill(_ds, "tblmembrescotisations")
Me.DataGridView1.AutoGenerateColumns = False
DataGridView1.DataSource = _ds.Tables("tblmembrescotisations")
Dim _da2 As New MySqlDataAdapter("SELECT * FROM tblcodespostaux", My.Settings.CTFConnectionString)
_da2.Fill(_ds, "tblcodespostaux")
Dim TextBoxColumn1 As New DataGridViewTextBoxColumn
With TextBoxColumn1
.HeaderText = "Année"
.Width = 100
.DataPropertyName = "Annee"
End With
Dim ComboBoxColumn1 As New DataGridViewComboBoxColumn
With ComboBoxColumn1
.HeaderText = "Délivré à"
.DataPropertyName = "Localite"
.DataSource = _ds.Tables("tblcodespostaux").DefaultView
.DisplayMember = "Localite"
End With
Dim TextBoxColumn2 As New DataGridViewTextBoxColumn
With TextBoxColumn2
.HeaderText = "Délivré le"
.Width = 100
.DataPropertyName = "BCVM_DelivreLe"
End With
Dim TextBoxColumn3 As New DataGridViewTextBoxColumn
With TextBoxColumn3
.HeaderText = "Montant"
.Width = 100
.DataPropertyName = "MontantCotisation"
End With
DataGridView1.Columns.Add(TextBoxColumn1)
DataGridView1.Columns.Add(ComboBoxColumn1)
DataGridView1.Columns.Add(TextBoxColumn2)
DataGridView1.Columns.Add(TextBoxColumn3)
End Sub
End Class |
Partager