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
| Private Sub ConsultationActeur_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim dt As New DataTable
With dt
With .Columns
.Add("ridActeur", GetType(String))
.Add("rnomActeur", GetType(String))
End With
With .Rows
.Add("nm0000125", "Sean Connery")
.Add("nm0000266", "Ursula Andress")
.Add("nm0496866", "Bernard Lee")
.Add("nm0936476", "Joseph Wiseman")
End With
End With
With lstActeur
With .Columns
.Add("idActeur", -2, HorizontalAlignment.Left)
.Add("nomActeur", -2, HorizontalAlignment.Left)
End With
.View = View.Details
With .DataBindings
.Add("idActeur", dt, "ridActeur")
.Add("nomActeur", dt, "rnomActeur")
End With
End With
End Sub |
Partager