Die linke und rechte Domain-Table in der unteren Tabelle verbinden. Daten sichern und erneut laden

[Visual Basic]
Private Sub BtnVerbinden_Click( _ 
   ByVal sender As Object, _ 
   ByVal e As EventArgs _ 
) Handles  _ 
   BtnVerbinden.Click

Parameter

sender

e

Quellcode

[Visual Basic]
    Private Sub BtnVerbinden_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnVerbinden.Click 
        check_changes() 
        Dim ileft As Integer = Me.C1DatenLeft.SelectedRows.Count 
        Dim iright As Integer = Me.C1DatenRight.SelectedRows.Count 
        Dim ic As Integer = 0 
        Dim Currentsel As Boolean 
        Dim colrows As C1.Win.C1TrueDBGrid.SelectedRowCollection 
        Dim keyvalueleft As Integer = 0 
        Dim Keyvalueright As Integer = 0 
        If (Me.Fokus = 1 And ileft > 1) Or (Me.Fokus = 2 And iright > 1) Then 
            Me.msg.show_standardmessage(4, MsgBoxStyle.Exclamation) 
            Exit Sub 
        End If 
        If Me.Fokus = 1 Then 
            ic = iright 
            colrows = Me.C1DatenRight.SelectedRows 
        End If 
        If Me.Fokus = 2 Then 
            ic = ileft 
            colrows = Me.C1DatenLeft.SelectedRows 
        End If 
        If ic = 0 Then 
            ic = ic + 1 
            Currentsel = True 
        End If 
        Dim i As Integer 
        For i = 0 To ic - 1 
            If Me.Fokus = 1 Then 
                keyvalueleft = Me.C1DatenLeft.Columns(0).Value 
                If Currentsel = True Then 
                    Keyvalueright = Me.C1DatenRight.Columns(0).Value 
                Else 
                    Keyvalueright = Me.C1DatenRight.Columns(0).CellValue(colrows(i)) 
                End If 
            Else 
                Keyvalueright = Me.C1DatenRight.Columns(0).Value 
                If Currentsel = True Then 
                    keyvalueleft = Me.C1DatenLeft.Columns(0).Value 
                Else 
                    keyvalueleft = Me.C1DatenLeft.Columns(0).CellValue(colrows(i)) 
                End If 
            End If 
        Next 
        Me.domaintablebottom.Insert_Bottom_Table(Me.Domaintableleft.Tabledata.Tables(0).Columns(0).ColumnName, keyvalueleft, Me.Domaintableright.Tabledata.Tables(0).Columns(0).ColumnName, Keyvalueright) 
        Me.domaintablebottom.Save_Data() 
        Me.Refresh_Bottomtable() 
    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

frmVerbindungEditor