DGV Multiselect, Übernehmen - abarbeiten

  • VB.NET

    DGV Multiselect, Übernehmen - abarbeiten

    Hi,

    bitte um eure Hilfe, da ich total feststecke...

    Habe ine DGV mit Multiselect True. Wie bringe ich Ihn dazu alle markierten abzuarbeitne?

    Das ist mal mein Ansatz gewesen... der netürlich nicht funktioniert...

    VB.NET-Quellcode

    1. Try
    2. For Each DGVS As DataGridViewRow In DataGridView2.SelectedRows
    3. ' Die derzeit ausgewählte Datenbank erfassen
    4. con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & Archiv_aktiv & "; Jet OLEDB:database Password=" & DBPass & ";"
    5. cmd.Connection = con
    6. cmd.CommandText = "SELECT * FROM " & Tabelle04 & " WHERE Doc_Dokumentennr = '" & DataGridView2.Rows(DGVS).Cells(5).Value & "'" ' DataGridView2.Rows(DataGridView2.CurrentRow.Index).Cells(5).Value & "'"
    9. con.Open()
    10. reader = cmd.ExecuteReader()
    12. Do While reader.Read()
    13. Att = reader("Doc_Dokumentennr").ToString() & reader("Doc_Art").ToString()
    15. Loop
    17. con.Close()
    19. olMail.Attachments.Add(Archiv_Pfad & "\FILES_" & Archiv_Name & "\FILES\" & Att)
    21. Next
    23. Catch ex As Exception
    24. Fehlermeldung = ex.Message & " - Fehler: Form1, sendmail"
    25. Fehler_Instance.Ausgabe(Fehlermeldung)
    26. con.Close()
    28. End Try


    Das hier

    VB.NET-Quellcode

    1. For Each DGVS As DataGridViewRow In DataGridView2.SelectedRows

    funktioniert schon mal ...

    nur das hier leider natrülich nicht...

    VB.NET-Quellcode

    1. cmd.CommandText = "SELECT * FROM " & Tabelle04 & " WHERE Doc_Dokumentennr = '" & DataGridView2.Rows(DataGridView2.CurrentRow.Index).Cells(5).Value & "'"


    Vielleicht hat einer nen Tipp für mich ?

    Alex


    EDIT:

    Hat sich erledigt...

    so gehts :

    VB.NET-Quellcode

    1. For Each SRow As DataGridViewRow In DataGridView2.SelectedRows
    2. ' Die derzeit ausgewählte Datenbank erfassen
    4. con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & Archiv_aktiv & "; Jet OLEDB:database Password=" & DBPass & ";"
    5. cmd.Connection = con
    6. cmd.CommandText = "SELECT * FROM " & Tabelle04 & " WHERE Doc_Dokumentennr = '" & DataGridView2.Rows(SRow.Index).Cells(5).Value & "'" ' DataGridView2.Rows(DataGridView2.CurrentRow.Index).Cells(5).Value & "'"
    7. ...

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „lris08“ ()