Discussion :

[Ashireon]

Bien le bonjour les petit loups

donc j'essaie de creer une forme de planning propre a mes besoins
Affichage en colonne les jours et en ligne les noms des techniciens
Pour ca pas de prob je genere les lignes et colonnes avec un tablelayoutpanel et charge les dates dans des txtbox au dessus du tablelayoutpanel.
Ensuite je charge le nom des tech sur la colonne 0 en définissant le nb de lignes a créer.
Pour le moment c'est tout beau mais vide.
Donc a present j'essaie de charger des richtextbox dans les colonnes et lignes
la je bloque sur comment on positionne des controls et si je peut en mettre plusieurs dans un tablelayoutpanel par N°Ligne et colonne correspondant.

voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        'TODO: cette ligne de code charge les données dans la table 'DBGMAODataSet.Intervention'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
        Me.InterventionTableAdapter.Fill(Me.DBGMAODataSet.Intervention)
        'TODO: cette ligne de code charge les données dans la table 'DBGMAODataSet.Personnel'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
        Me.PersonnelTableAdapter.Fill(Me.DBGMAODataSet.Personnel)
 
        Dim date01 As Date
        Dim date02 As Date
        Dim date03 As Date
        Dim date04 As Date
        Dim date05 As Date
        Dim date06 As Date
        Dim date07 As Date
 
        date01 = System.DateTime.Now.Date
        date02 = date01.AddDays(1)
        date03 = date01.AddDays(2)
        date04 = date01.AddDays(3)
        date05 = date01.AddDays(4)
        date06 = date01.AddDays(5)
        date07 = date01.AddDays(6)
 
        TextBox1.Text = date01
        TextBox2.Text = date02
        TextBox3.Text = date03
        TextBox4.Text = date04
        TextBox5.Text = date05
        TextBox6.Text = date06
        TextBox7.Text = date07
 
        Dim dv01 As New DataView
        With dv01
            .Table = DBGMAODataSet.Personnel
 
 
        End With
 
 
        Dim lg As Integer = DBGMAODataSet.Personnel.Rows.Count
 
 
        Me.SuspendLayout()
 
        For X As Integer = 0 To 100 'lg
 
            TableLayoutPanel1.AutoSize = True
            TableLayoutPanel1.AutoScroll = True
            TableLayoutPanel1.RowStyles.Clear()
            TableLayoutPanel1.RowStyles.Add(New RowStyle(SizeType.Absolute, 60))
            DBGMAODataSet.Personnel.DefaultView.Sort = "Matricule,Nom ASC"
            Dim dtt01 As New DataTable
            dtt01 = DBGMAODataSet.Personnel.DefaultView.ToTable
 
 
 
            TableLayoutPanel1.Controls.Add(New Label, 0, X)
            TableLayoutPanel1.GetControlFromPosition(0, X).Text = Convert.ToString(dtt01.Rows(X).Item(0))
 
 
 
        Next
        Me.ResumeLayout()
        Dim DV10 As New DataView
        With DV10
            .Table = DBGMAODataSet.Intervention
            .RowFilter = "[Dates] ='" & date01 & "'"
        End With
        Dim dtb01 As New DataTable
        dtb01 = DV10.ToTable
        Dim nb As Integer = dtb01.Rows.Count
 
        For X As Integer = 0 To nb - 1
            Dim st01 As String = TableLayoutPanel1.GetControlFromPosition(0, X).Text
            Dim dv02 As New DataView
            With dv02
                .Table = dtb01
                .RowFilter = "[Personnel] ='" & st01 & "'"
            End With
            Dim dtb02 As New DataTable
            dtb02 = dv02.ToTable
            Dim lge As Integer = dtb02.Rows.Count
 
            For z As Integer = 0 To lge - 1
                Dim hre As String = dtb02.Rows(0).Item(3).ToString
                Dim ctr As Integer = dtb02.Rows(0).Item(4).ToString
                Dim numerotxtbox As Integer
                numerotxtbox = X + z
                Create_PL(numerotxtbox, hre, ctr)
 
            Next
 
        Next
 
 
    End Sub

et bien sur la fonction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
    Public Function Create_PL(nbi As Integer, text01 As String, text02 As String)
 
        Dim ctrlRTB As New System.Windows.Forms.RichTextBox
        Dim RichTextBoxName As String
        RichTextBoxName = "RTBPL" & nbi
        With ctrlRTB
            .Name = RichTextBoxName
            .Visible = True
            .Width = 200
            .Height = 200
            .Text = Text01 & vbCrLf & text02
        End With
 
 
    End Function

end function me retourne une erreur comme quoi tous les chemins ne retournent pas une valeur.

donc besoin d'un serieux coup de pouce je sèche

Soyez Magnanime hein y a le mot debutant les petits loups :-)

[asmduty]

Bonjour,

Une "Function" doit retourner une valeur, d'où le message.
Une "Sub" ne renvoie rien.