Imports System.ComponentModel
Imports System.Drawing.Design
 
Public Class UserControl1
 
    Private iTextTextFeld As String
 
    <Category("CUP"), Description(""), _
    Browsable(True), Bindable(True)> _
    Public Property TextTextFeld() As String
        Get
            Return iTextTextFeld
        End Get
        Set(ByVal value As String)
            iTextTextFeld = value
        End Set
    End Property

    Private Sub DataGridView1_RowStateChanged(ByVal sender As Object, ByVal e _
      As System.Windows.Forms.DataGridViewRowStateChangedEventArgs) Handles _
      DataGridView1.RowStateChanged
        Try
            Me.BindingContext(Me.DataSet11, _
              Me.DataSet11.DataTable1.TableName).EndCurrentEdit()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Try
            Dim dt_Modified As DataTable = Nothing
            dt_Modified = Me.DataSet11.DataTable1.GetChanges( _
              DataRowState.Modified)
            If Not IsNothing(dt_Modified) Then
                MsgBox("Modified Rows Count =" & _
                  dt_Modified.Rows.Count.ToString)
            Else
                MsgBox("Nothing")
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub