Dim cm As CurrencyManager = CType(BindingContext(Me.Tbl.DataSource, Me.Tbl.DataMember), CurrencyManager) Dim rv As DataRowView = CType(cm.Current, DataRowView) If DataRowState.Modified = True Then MsgBox("dd") MsgBox(rv.Row.RowState.ToString)
Me.Ds.Tbl.Rows(0).RowState