Public Class frmChooseGrid
    Inherits System.Windows.Forms.Form
 
    Dim dtchoosedata As DataTable
 
    Public Property choosedata() As DataTable
        Get
            Return dtchoosedata
        End Get
        Set(ByVal Value As DataTable)
            dtchoosedata = Value
        End Set
    End Property
    Public ReadOnly Property aktdatarow() As DataRowView
        Get
            Dim cm As CurrencyManager = CType(BindingContext( _
              datagrid2.DataSource), CurrencyManager)
            Dim drv As DataRowView = CType(cm.List(datagrid2.CurrentRowIndex), _
            DataRowView)
            'tmp_datarow = Me.choosedata.Rows.Find(datagrid2.Item( 
            ' datagrid2.CurrentRowIndex, bycolumnindex))
            Return drv
        End Get
    End Property
 
    Public Sub SetRowFilter(ByVal filterstring As String)
        dtchoosedata.DefaultView.RowFilter = filterstring
        If Not Me.Visible Then Me.Visible = True
    End Sub
 
    Private Sub frmChooseGrid_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.DataGrid2.BorderStyle = BorderStyle.None
        Me.DataGrid2.FlatMode = True
        DataGrid2.DataMember = ""
        Me.DataGrid2.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.DataGrid2.Location = New System.Drawing.Point(0, 0)
        Me.DataGrid2.Name = "DataGrid2"
        Me.DataGrid2.Size = New System.Drawing.Size(Me.Width, Me.Height)
        Me.DataGrid2.RowHeadersVisible = False
        Me.DataGrid2.ColumnHeadersVisible = False
        Me.DataGrid2.ReadOnly = True
        Me.DataGrid2.CaptionVisible = False
 
    End Sub
 
    Public Sub New(ByVal dtauswahl As DataTable, ByVal parentcontrol As Object, _
      Optional ByVal width As Integer = 500, Optional ByVal height As Integer = _
      300)
        MyBase.New()
 
        dtchoosedata = dtauswahl
 
        'MyBase.Location = New System.Drawing.Point(CType(parentcontrol, 
        ' System.Windows.Forms.TextBox).Left, CType(parentcontrol, 
        ' System.Windows.Forms.TextBox).Top + CType(parentcontrol, 
        ' System.Windows.Forms.TextBox).Height)
        MyBase.Name = "choosegridpopup"
 
        Me.DataGrid2.DataSource = choosedata    _
          <<<<<----------------------------- An dieser Stelle die Exeption
 
 
        MyBase.Size = New System.Drawing.Size(width, height)
 
    End Sub
End Class