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 |
