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 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97
|
Private Sub envoyer_Click(sender As Object, e As EventArgs) Handles envoyer.Click
Dim Connexion As New SqlConnection("Data Source=SQL\SERVEUR;Initial Catalog=MYNAME;User Id=USER;Password=PASS")
Dim combo As String = ""
combo = ComboBox1.Text
Try
Connexion.Open()
Dim Requete As String = ""
Dim Requete2 As String = "SELECT ischeck FROM SuiviReception"
Dim MonDataSet As New DataSet
If CheckBox2.Checked Then
Requete = "SELECT * FROM SuiviReception where NomTransporteur ='" & combo & "'"
Else
Requete = "SELECT * FROM SuiviReception where NomTransporteur ='" & combo & "' AND ischeck = '0' OR (ischeck is null)"
End If
Dim Commande As New SqlCommand(Requete, Connexion)
Dim Adaptateur As New SqlDataAdapter(Commande)
Try
Adaptateur.Fill(MonDataSet, "SuiviReception")
'DEBUT EFFACEMENT COLONNE
MonDataSet.Tables("SuiviReception").Columns("CreeLe").ColumnMapping = MappingType.Hidden
MonDataSet.Tables("SuiviReception").Columns("HeureLog").ColumnMapping = MappingType.Hidden
MonDataSet.Tables("SuiviReception").Columns("ID").ColumnMapping = MappingType.Hidden
MonDataSet.Tables("SuiviReception").Columns("EstBillot").ColumnMapping = MappingType.Hidden
MonDataSet.Tables("SuiviReception").Columns("EstPlanche").ColumnMapping = MappingType.Hidden
MonDataSet.Tables("SuiviReception").Columns("Emplacement").ColumnMapping = MappingType.Hidden
MonDataSet.Tables("SuiviReception").Columns("Essence").ColumnMapping = MappingType.Hidden
MonDataSet.Tables("SuiviReception").Columns("_NombreEssieux").ColumnMapping = MappingType.Hidden
MonDataSet.Tables("SuiviReception").Columns("DateDouane").ColumnMapping = MappingType.Hidden
MonDataSet.Tables("SuiviReception").Columns("PoidsVide").ColumnMapping = MappingType.Hidden
MonDataSet.Tables("SuiviReception").Columns("PoidsPlein").ColumnMapping = MappingType.Hidden
MonDataSet.Tables("SuiviReception").Columns("TripTicket").ColumnMapping = MappingType.Hidden
MonDataSet.Tables("SuiviReception").Columns("Periode").ColumnMapping = MappingType.Hidden
MonDataSet.Tables("SuiviReception").Columns("Optimisticlockfield").ColumnMapping = MappingType.Hidden
MonDataSet.Tables("SuiviReception").Columns("ReferenceCueillette").ColumnMapping = MappingType.Hidden
MonDataSet.Tables("SuiviReception").Columns("NomTypeRemorque").ColumnMapping = MappingType.Hidden
MonDataSet.Tables("SuiviReception").Columns("NumeroOlympicFournisseur").ColumnMapping = MappingType.Hidden
MonDataSet.Tables("SuiviReception").Columns("EstSupprime").ColumnMapping = MappingType.Hidden
MonDataSet.Tables("SuiviReception").Columns("NomTransporteur").ColumnMapping = MappingType.Hidden
'FIN EFFACEMENT COLONNE
'DEBUT CHANGEMENT DE NOM COLONNE
MonDataSet.Tables("SuiviReception").Columns("DateLog").ColumnName = "Date"
MonDataSet.Tables("SuiviReception").Columns("NumeroCueillette").ColumnName = "Cueillette"
MonDataSet.Tables("SuiviReception").Columns("NomFournisseur").ColumnName = "Fournisseur"
MonDataSet.Tables("SuiviReception").Columns("NumeroReceptionTempo").ColumnName = "# Reception Tempo"
MonDataSet.Tables("SuiviReception").Columns("PoidsNet").ColumnName = "Poids Net"
MonDataSet.Tables("SuiviReception").Columns("RapportMesurage").ColumnName = "Rapport"
MonDataSet.Tables("SuiviReception").Columns("QuantiteMesure").ColumnName = "PMP"
MonDataSet.Tables("SuiviReception").Columns("QuantiteTotal").ColumnName = "Quantite Total"
MonDataSet.Tables("SuiviReception").Columns("ischeck").ColumnName = "Imprimer"
'FIN CHANGEMENT DE NOM COLONNE
'DEBUT LARGEUR COLONNE
DG_DataGrid.DataSource = MonDataSet.Tables("SuiviReception")
Dim DGTSPersonnes As New DataGridTableStyle
DGTSPersonnes.MappingName = "SuiviReception"
DG_DataGrid.TableStyles.Add(DGTSPersonnes)
Try
DGTSPersonnes.GridColumnStyles(3).Width = 150 'Fournisseur Colonne
DGTSPersonnes.GridColumnStyles(4).Width = 75 'Poids Net
DGTSPersonnes.GridColumnStyles(5).Width = 80 'Quantite Total
'DEBUT CENTRER COLONNE
DGTSPersonnes.GridColumnStyles(0).Alignment = HorizontalAlignment.Center
DGTSPersonnes.GridColumnStyles(1).Alignment = HorizontalAlignment.Center
DGTSPersonnes.GridColumnStyles(2).Alignment = HorizontalAlignment.Center
DGTSPersonnes.GridColumnStyles(3).Alignment = HorizontalAlignment.Center
DGTSPersonnes.GridColumnStyles(4).Alignment = HorizontalAlignment.Center
DGTSPersonnes.GridColumnStyles(5).Alignment = HorizontalAlignment.Center
DGTSPersonnes.GridColumnStyles(6).Alignment = HorizontalAlignment.Center
DGTSPersonnes.GridColumnStyles(7).Alignment = HorizontalAlignment.Center
DGTSPersonnes.GridColumnStyles(8).Alignment = HorizontalAlignment.Center
'FIN CENTRER COLONNE
DGTSPersonnes.DataGrid.Refresh()
Catch ex As Exception
End Try
'FIN LARGEUR COLONNE
DG_DataGrid.DataSource = MonDataSet.Tables("SuiviReception")
Catch ex As Exception
Console.WriteLine(ex.Message)
End Try
Catch ex As Exception
Console.WriteLine(ex.Message)
End Try
End Sub |
Partager