Public Shared Sub RelinkDataBindings(ByVal ctl_FormularOderSteuerelement _
      As Control, ByVal ds_ModuleDataSetObjekt As DataSet)
        ' Autor : Ruppyo Jantzen
        ' Date : 04072004
        ' Hinweise : Die Funktion Stellt die Databindings, der Steuerelemente 
        ' des als Parameter übergebenen "Formular"´s,
        '            auf das neue Dataset ein. Dabei werden alle Controls des 
        ' Formulars durchlaufen und 
        '            auf die neuen Werte eingestellt. Die Funktion ermittelt 
        ' den Typ der Steuerelemente und
        '            übergiebt alle für das Steuerelement relevanten Daten.
 
        Dim obj_newContr As Object
        Dim str_DisplayMember As String
        Dim ds_col_DataColumn As DataColumn
        Dim cbo_newComboBoxContr As System.Windows.Forms.ComboBox
        Dim str_newString As String
        Dim str_DataBinding_Value As String
        Dim int_i As Integer
        Dim int_ii As Integer
 
        'Prüfung der vorhandenen Steuerelemente auf dem Formular.
        For Each obj_newContr In ctl_FormularOderSteuerelement.Controls
            'Wenn DataBindings bestehen wird der Typ des Steuerelements 
            ' ausgewertet.
            If obj_newContr.DataBindings.Count > 0 Then
 
                Dim ds_tbl_neu As New DataTable()
                ds_tbl_neu = eQM_cls_System.eQM_DS_Obj_System_Temp.tbl_temp()
 
                'Für jede Binding des Steuerelements
                For int_i = 0 To obj_newContr.DataBindings.Count - 1 Step 1
 
                    Dim ds_row_newSystemRow As DataRow = ds_tbl_neu.NewRow()
 
                    'Übergabe der Bestehenden Verbindungsdaten, damit diese 
                    ' gelöscht und neu erstellt werden können.
                    str_newString = obj_newContr.DataBindings.Item( _
                      int_i).BindingMemberInfo.BindingMember.ToString
                    'Binding - Typ ermitteln und für die anschließende neu - 
                    ' Einstellung zu konvertieren.
                    str_DataBinding_Value = obj_newContr.DataBindings.Item( _
                      int_i).PropertyName
 
                    ds_row_newSystemRow.Item("Name") = str_DataBinding_Value
                    ds_row_newSystemRow.Item("Wert") = str_newString
                    ds_tbl_neu.Rows.Add(ds_row_newSystemRow)
                Next
                obj_newContr.DataBindings.Clear()
 
                For int_ii = 0 To int_i - 1 Step 1
                    Try
                        'If obj_newContr.GetType.ToString = 
                        ' "eQM_ComboBox.eQM_UC_ComboBox" Then
 
                        'Else
                            obj_newContr.DataBindings.Add(ds_tbl_neu.Rows( _
                              int_ii)("Name"), ds_ModuleDataSetObjekt, _
                              ds_tbl_neu.Rows(int_ii)("Wert"))
                        'End If
                    Catch
                    End Try
                Next
                ds_tbl_neu.Clear()
            End If
 
'Hier ruft die Funktion sich selbst auf, wenn das aktuelle Steuerelement 
' weitere Steuerelemente beinhaltet.
            If ctl_FormularOderSteuerelement.Controls.Count > 0 Then
                eQM_cls_System.RelinkDataBindings(obj_newContr, _
                  ds_ModuleDataSetObjekt)
            End If
        Next
    End Sub

Gru? Rub

(PS: Besuch doch mal meine Seiten http://e-liquids.de und http://jjpassion.de)