' =============================================
' Einsteigeorte erfassen
' =============================================
 
Private Sub Einsteigeorte()
    FileClose
    sSQL = "SELECT * FROM tblZustieg ORDER BY ZuText1"
    oRs.CursorLocation = adUseClient
    oRs.Open sSQL, oConn, adOpenKeyset, adLockOptimistic
    oRsOpen = True
    If oRs.RecordCount > 0 Then
       oRs.MoveFirst
    End If
 
    With sevGrid2
        .Clear
        .LockUpdate True
        .DataMode = Mode_List
        ' Spalten hinzufügen
        .ColumnAdd "id", "Code", 1200
        .ColumnAdd "ort1", "Einsteigeort 1", 5950
        .ColumnAdd "ort2", "Einsteigeort 2", 5950
        .ColumnAdd "new", "New", 1000
 
        .Columns(4).Visible = False
 
        If oRs.RecordCount = 0 Then
           sLine = " " & ";" & " " & ";" & " " & ";" & ""
           Set oItem = .AddItem(Replace(sLine, ";", vbTab))
        Else
           Grid2Laden
        End If
 
        .AllowEdit = True
        .AllowDelete = True
        .AutoEdit = True
        .AutoInsert = True
        .AutoUpdate = True
        .AllowColumnSizing = True
 
        .LockUpdate False
        .Refresh
        .Row = 1
 
    End With
End Sub
 
Private Sub Grid2Laden()
    oRs.MoveFirst
 
    With sevGrid2
       Do While Not oRs.EOF
          sLine = oRs!ZuCode & ";" & oRs!ZuText1 & ";" & oRs!ZuText2 & ";" & _
            oRs!ZuNeu
          Set oItem = .AddItem(Replace(sLine, ";", vbTab))
          oRs.MoveNext
       Loop
       oRs.MoveFirst
    End With
End Sub
 
' ------------------------------------------
' Einsteigeorte speichern
' ------------------------------------------
 
Private Sub btnSaveEinstieg_Click()
    Dim I As Long
    With sevGrid2
        For I = 1 To .Rows
            If .Text(I, 4) = "" Then
               oRs.AddNew
            End If
            oRs!ZuCode = .Text(I, 1)
            oRs!ZuText1 = .Text(I, 2)
            oRs!ZuText2 = .Text(I, 3)
            oRs!ZuNeu = "New"
            oRs.Update
        Next I
    End With
    MsgBox "Die Einsteigeorte wurde gespeichert ..."
End Sub