Problème d'affichage dans un tabcontrol.
Bonjour,
J'ai un problème d'affichage sur un tabcontrol.
Sur un tabcontrol.Tabpage6 j'ai un datagridview que je rempli par programmation dans le load de ma form.
si je click sur l'onglet tabpage6 qui contient ma datagridview la grille est vide.
Après vérification de debugg le datagridview est bien rempli !
Y a t'il quelque chose de plus à faire pour forcer l'affichage dans le tabcontrol.tabpage ?
Code présent au load de ma form
Code:
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
|
Dim Type As String = ""
Dim Champs() As String
Dim OrdreSelection As Integer = 0
'***** suppression de la close FROM et du reste
Champs = Split(Exp_liste_champs_Stk, ",")
'***** Ouverture de la base SQL sélectionnée.
OpenSql(Err, NomServeurSql, Base_EBP)
requete = "SELECT * FROM INFORMATION_SCHEMA.COLUMNS WHERE Table_Name = 'Item'"
Dim cmdLireItem As New SqlCommand(requete, Connect)
Dim rstLireItem As SqlDataReader
DataGridView1.DataMember = Nothing
DataGridView1.Rows.Clear()
' ***** Lecture des enregitrements
rstLireItem = cmdLireItem.ExecuteReader()
cmdLireItem.Dispose()
While rstLireItem.Read()
'*****
Zone = rstLireItem.Item("COLUMN_NAME") & ""
Type = rstLireItem.Item("data_type") & ""
OrdreSelection = 0
For i = 0 To UBound(Champs)
If Champs(i) = Zone Then
OrdreSelection = i + 1
End If
Next
DataGridView1.Rows.Add(OrdreSelection, Zone, Type)
End While
rstLireItem.Close()
rstLireItem = Nothing
DataGridView1.Refresh()
'*****
CloseSql(FLGErreur) |
Par avance merci pour vos réponses
