Zitat:

warum hast Du in Me (im forumlar ein DataGridColumnstyle?

        For Each cntr In formodercontrol.Controls
            i = i + 1
            ds_lang.Tables("sprachen").DefaultView.RowFilter = _
              "erscheinungsort='" & Me.Name & "' and textfeldname='" & _
              cntr.Name & "'"
            If ds_lang.Tables("sprachen").DefaultView.Count > 0 Then
                cntr.Text = ds_lang.Tables("sprachen").DefaultView.Item(0).Item( _
                  "Deutsch")
                Dim cm(i) As ContextMenu
Zeile X:           cm(i).MenuItems.Add(cntr.Text & " im Spracheditor" & _
  "bearbeiten")
                cntr.ContextMenu = cm(i)
            End If