Private Sub ppbind()
   Dim it As RepeaterItem
   Dim db As Integer = 0
   For Each it In Repeater1.Items
       Dim al As Label = it.FindControl("all")
       db = db + Convert.ToDouble(al.Text)
   Next
   ll1.Text = "$" + db.ToString()
End Sub

Private Sub ppbind()
   Dim it As RepeaterItem
   Dim db As Integer = 0
   For Each it In Repeater1.Items
       Dim rep As Repeater= it.FindControl("Repeater2")
       dim it2 as RepeaterItem
      For Each it2 In rep.Items
      Dim al As Label = it2.FindControl("all")
      db = db + Convert.ToDouble(al.Text)
      Next
   Next
   ll1.Text = "$" + db.ToString()
End Sub