note 75855 added to function.srand
| From: | jill at osu1 dot php dot net | Date: | Tue, 19 Jun 2007 03:33:18 +0000 |
| Subject: | note 75855 added to function.srand | ||
| Groups: | php.notes | ||
| Request: | Send a blank email to php-notes+get-127731@lists.php.net to get a copy of this message | ||
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
----
Server IP: 87.238.162.147
Probable Submitter: 81.245.180.77
----
Manual Page -- http://www.php.net/manual/en/function.srand.php
Edit -- https://master.php.net/note/edit/75855
Del: integrated -- https://master.php.net/note/delete/75855/integrated
Del: useless -- https://master.php.net/note/delete/75855/useless
Del: bad code -- https://master.php.net/note/delete/75855/bad+code
Del: spam -- https://master.php.net/note/delete/75855/spam
Del: non-english -- https://master.php.net/note/delete/75855/non-english
Del: in docs -- https://master.php.net/note/delete/75855/in+docs
Del: other reasons-- https://master.php.net/note/delete/75855
Reject -- https://master.php.net/note/reject/75855
Search -- https://master.php.net/manage/user-notes.php