Private Function set_ProjektWerte() As Boolean
Dim i1 As Integer = CInt(Me.combo_Prj.SelectedValue)
 
   Dim drPrj As DataRow = myDAL.get_Row("Prj", i1)
 
            drPrj("Prj_ist_stunden") = 0 'leeren des bestehenden
'hier springt es zum s.u. Ereignis
 
...Berechnungen für Projektwerte
end function

Private Sub combo_Prj_SelectedValueChanged(ByVal sender As Object, ByVal e As _
  System.EventArgs) Handles combo_Prj.SelectedValueChanged
 
call Me.set_ProjektWerte
'ein neu ausgewähltes Projekt soll aktuelle werte bekommen, und zack fertig ist 
' der loop
 
 End Sub

 Private Function populate_Combo_Prj() As Boolean
        Try
            Dim dt As DataTable = myDAL.Tables("Prj")
            dt.DefaultView.Sort = "PRJ_SORT"
 
            With Me.combo_Prj
                .DataSource = dt.DefaultView
                .DisplayMember = "PRJ_SORT"
                .ValueMember = "PRJ_NR"
            End With
end function

Micke