'Beispiel: VB .Net - DataGrid - Aenderungen in Row auswerten. 1 ' ' Imports System Imports System.Drawing Imports System.Windows.Forms Imports System.Data Namespace VBDotNet_DetectingRowChangeInDataGrid Public Class MainForm Inherits System.Windows.Forms.Form Private dataGrid1 As System.Windows.Forms.DataGrid Public Shared Sub Main Dim fMainForm As New MainForm fMainForm.ShowDialog() End Sub Public Sub New() MyBase.New Me.InitializeComponent End Sub #Region " Windows Forms Designer generated code " Private Sub InitializeComponent() Me.dataGrid1 = New System.Windows.Forms.DataGrid CType(Me.dataGrid1,System.ComponentModel.ISupportInitialize).BeginInit Me.SuspendLayout ' 'dataGrid1 ' Me.dataGrid1.DataMember = "" Me.dataGrid1.HeaderForeColor = System.Drawing.SystemColors.ControlText Me.dataGrid1.Location = New System.Drawing.Point(8, 8) Me.dataGrid1.Name = "dataGrid1" Me.dataGrid1.Size = New System.Drawing.Size(280, 256) Me.dataGrid1.TabIndex = 0 ' 'MainForm ' Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(292, 266) Me.Controls.Add(Me.dataGrid1) Me.Name = "MainForm" Me.Text = "Testform <DataGrid - Aenderungen in Row auswerten. 1>" AddHandler Load, AddressOf Me.MainFormLoad CType(Me.dataGrid1,System.ComponentModel.ISupportInitialize).EndInit Me.ResumeLayout(false) End Sub #End Region Private dt As New DataTable Private WithEvents dv As DataView Private Sub InitDataGrid(ByRef dg As System.Windows.Forms.DataGrid) dt.Columns.Add("Name") dt.Columns.Add("Nachname") Dim s1() As String = {"Heinz", "Frank", "Otto"} Dim s2() As String = {"Prelle", "Raab", "Nielsen"} For n As Integer = 0 To Microsoft.VisualBasic.UBound(s1) Dim dr As DataRow = dt.NewRow dr(0) = s1(n) dr(1) = s2(n) dt.Rows.Add(dr) Next dv = New DataView(dt) dg.DataSource = dv End Sub Private Sub dvListChanged(sender As Object, e As System.ComponentModel.ListChangedEventArgs) _ Handles dv.ListChanged If dt.Rows.Count < dv.Count Then Me.Text = dv.Count.ToString() & " Neue Zeile" End If End Sub Private Sub MainFormLoad(sender As System.Object, e As System.EventArgs) Call InitDataGrid(dataGrid1) End Sub End Class End Namespace