CboYear

Private Sub cboyear_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboyear.SelectedIndexChanged
        'produce a report
        Dim count As Integer
        Dim count2 As Integer
        Dim dataR As DataRow
        Dim dataS As DataRow
        Dim mon As Date
 
        For count = 0 To dsReservation.RESERVATION.Rows.Count - 1 Step 1
            dataR = dsReservation.RESERVATION.Rows(count)
 
            For count2 = 0 To dsReservation.RESERVATION.Rows.Count - 1 Step 1
                dataS = dsReservation.RESERVATION.Rows(count2)
                mon = dataR("ReserveDate")
 
            Next
            lstReserveNo.Items.Add(dataR("ReserveNo"))
            lstReserveDate.Items.Add(dataR("ReserveDate"))
            lstIslandName.Items.Add(dataR("IslandName"))
            lstTotalDeposit.Items.Add(dataR("TotalDeposit"))
            lbldeptotal.Text = "0"
 
            For a As Integer = 0 To lstTotalDeposit.Items.Count - 1 Step 1
                lbldeptotal.Text = CInt(lbldeptotal.Text) + CInt(lstTotalDeposit.Items.Item(a).ToString)
            Next
        Next
        cboyear.Enabled = False
    End Sub