title image


Smiley Datatable in einer KLasse soll Änderung bemerken
Ich möchte eine Tabelle die in einem Dataset ist, an eine Tabelle aus einer KLasse(ClsTable) binden. Wenn es dann Änderungen gibt, soll dies durch eine Prozedur der Klasse bemerkt werden.

Der Code wird fehlerfrei ausgeführt aber bei Änderung tusich nichts, also die Prozedur wird nicht aufgerufen.







      

' KLasse ClsTable ///////////////////////////////////////////

Public Class ClsTable

   

    Private WithEvents myTableAdp As New DataTable("myTable")

    Private booChange As Boolean





Public Property objTable() As DataTable

        Get

            Return myTableAdp

        End Get

        Set(ByVal Value As DataTable)

            myTableAdp = Value

        End Set

End Property



' Änderungen bemerken-------------------------

Private Sub myTable_RowChanged(ByVal sender As Object, _

                               ByVal e As System.Data.DataRowChangeEventArgs) _

                               Handles myTableAdp.RowChanged, myTableAdp.RowDeleted

       

        booChange = True

End Sub

KLasse ende//////////////////////////////////////





Formular////////////////////////////////////////

Private Sub btn_TabeleSetzen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _

                                                                   Handles MyBase.Load

       

        ' Table Setzen-------------------------

        ClsTable.objTable = myDataset.Tables("tbl_Customers")

        Me.txt_Fa_Name.DataBindings.Add("Text", ClsTable.objTable, "CompanyName")

End Sub



 



Code eingefügt mit Syntaxhighlighter 3.0





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: