note 75855 deleted from function.srand by nlopess
| From: | nlopess@php.net | Date: | Tue, 19 Jun 2007 12:41:55 +0000 |
| Subject: | note 75855 deleted from function.srand by nlopess | ||
| References: | 1 | Groups: | php.notes |
| Request: | Send a blank email to php-notes+get-127762@lists.php.net to get a copy of this message | ||
Note Submitter: jill
----
Public Class btnEerste
Private dttKlanten As DataTable
Private dtrrijen() As DataRow
Private strType As String
Private strFilter As String
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles cboType.SelectedIndexChanged
Me.odtaKlanten.Fill(DtsArtemis1)
dttKlanten = DtsArtemis1.Tables("tblKlanten")
strType = cboType.SelectedItem
strFilter = "type like '" & strType & "'"
laden()
bindings()
lblAantal.Text = "Het aantal klanten van dit type is " &
(dtrrijen.GetUpperBound(0))
End Sub
Private i As Integer
Private Sub btnEerste1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
btnEerste1.Click
i = 0
laden()
End Sub
Private Sub btnVorige1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
btnVorige1.Click
If i - 1 > dtrrijen.GetLowerBound(0) Then
i -= 1
End If
laden()
End Sub
Private Sub btnVolgende1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles btnVolgende1.Click
If i + 1 < dtrrijen.GetUpperBound(0) Then
i += 1
End If
laden()
End Sub
Private Sub btnLaatste1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles btnLaatste1.Click
i = dtrrijen.GetUpperBound(0)
laden()
End Sub
Sub laden()
dtrrijen = dttKlanten.Select(strFilter, "naam ASC")
txtNaam.Text = dtrrijen(i).Item("Naam")
txtStraat.Text = dtrrijen(i).Item("Straat")
txtGemeente.Text = dtrrijen(i).Item("Gemeente")
End Sub
Private Sub btnEerste2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
btnEerste2.Click
Me.BindingContext(dtrRijen).Position = 0
End Sub
Private Sub btnVorige2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
btnVorige2.Click
If Me.BindingContext(dtrrijen).Position - 1 > dtrrijen.getlowerbound(0) Then
Me.BindingContext(dtrrijen).Position -= 1
End If
End Sub
Private Sub btnVolgende2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles btnVolgende2.Click
If Me.BindingContext(dtrrijen).Position + 1 < dtrrijen.GetUpperBound(0) Then
Me.BindingContext(dtrrijen).Position += 1
End If
End Sub
Private Sub btnLaatste2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles btnLaatste2.Click
Me.BindingContext(dtrRijen).Position = dtrRijen.GetUpperBound(0)
End Sub
Sub bindings()
txtNaam.DataBindings.Clear()
txtStraat.DataBindings.Clear()
txtGemeente.DataBindings.Clear()
dtrrijen = dttKlanten.Select(strFilter, "naam ASC")
txtNaam.DataBindings.Add("text", dtrrijen, "Naam")
txtStraat.DataBindings.Add("text", dtrrijen, "straat")
txtGemeente.DataBindings.Add("text", dtrrijen, "Gemeente")
End Sub
End Class