Neuer Eintrag in der Tabelle eintragen. Sind neben den Defaultwerten weitere Attribute vorhanden, werde diese abhängig vom Datentype mit Defaultwerten befüllt.

[Visual Basic]
Public Sub Insert_Bottom_Table( _ 
   ByVal key1 As String, _ 
   ByVal keyvalue1 As Integer, _ 
   ByVal key2 As String, _ 
   ByVal keyvalue2 As String _ 
)

Parameter

key1

keyvalue1

key2

keyvalue2

Quellcode

[Visual Basic]
        Public Sub Insert_Bottom_Table(ByVal key1 As String, ByVal keyvalue1 As Integer, ByVal key2 As String, ByVal keyvalue2 As String) 
            Dim dbkey As New TKB.VV.DB.clsMyKey_Tabelle 
            dbkey.cpMainConnectionProvider = Globals.conn 
            conn.OpenConnection() 
            Dim newkey As Integer = dbkey.get_dbkey(Me.Tablename) 
            conn.CloseConnection(True) 
            dbkey.Dispose() 
            Dim dr As DataRow 
            dr = Me.Tabledata.Tables(0).NewRow 
            dr.Item(0) = newkey 
            Dim i As Integer 
            For i = 1 To Me.Tabledata.Tables(0).Columns.Count - 1 
                Select Case UCase(Me.Tabledata.Tables(0).Columns(i).ColumnName) 
                    Case "AKTIV" 
                        dr.Item(i) = 1 
                    Case "ERSTELLT_AM" 
                        dr.Item(i) = Now 
                    Case "MUTIERT_AM" 
                        dr.Item(i) = Now 
                    Case "MUTIERER" 
                        dr.Item(i) = Globals.clsmitarbeiter.iMitarbeiternr.Value 
                    Case "MANDANTNR" 
                        dr.Item(i) = Globals.clsmitarbeiter.iMandantnr.Value 
                    Case "MANDANT" 
                        dr.Item(i) = Globals.clsmitarbeiter.iMandantnr.Value 
                    Case UCase(key1) 
                        dr.Item(i) = keyvalue1 
                    Case UCase(key2) 
                        dr.Item(i) = keyvalue2 
                    Case Else 
                        Select Case Type.GetTypeCode(Me.Tabledata.Tables(0).Columns(i).DataType) 
                            Case TypeCode.DateTime 
                                dr.Item(i) = Now 
                            Case TypeCode.Double 
                                dr.Item(i) = 0 
                            Case TypeCode.String 
                                dr.Item(i) = "" 
                            Case TypeCode.Int32 
                                dr.Item(i) = 0 
                            Case TypeCode.Boolean 
                                dr.Item(i) = True 
                            Case TypeCode.Int16 
                                dr.Item(i) = 0 
                            Case TypeCode.Int32 
                                dr.Item(i) = 0 
                            Case TypeCode.Int64 
                                dr.Item(i) = 0 
                        End Select 
                End Select 
            Next 
            Me.Tabledata.Tables(0).Rows.Add(dr) 
        End Sub

Forderungen

Plattformen: Windows 98, Windows 2000 SP4, Windows Millennium Edition, Windows Server 2003, Windows XP Media Center Edition, Windows XP Professional x64 Edition, Windows XP SP2, Windows XP Starter Edition

Siehe auch

DomainTable