DataTable und LINQToDataSet

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von mjanz.

    DataTable und LINQToDataSet

    Hallo liebe Gemeinde,

    ich frage über Linq to DataSet ein typisiertes DataSet ab. Nun möchte ich die Ergebnisse aus der Linq-Abfrage in eine DataTable speichern, die ich dann weiter geben muss. Das Problem ist, dass die erwartete DataTable nicht vom System.Data.DataTable ist, sondern von einem Typ aus dem typisierten DataSet. Ich habe folgendes versucht:

    VB.NET-Quellcode

    1. Private Sub ListeOffenLetzterMonat(ByVal sender As System.Object, ByVal e As System.EventArgs)
    2. Dim iMonat As Integer = DateAndTime.Month(DateAndTime.Today) - 1
    3. If iMonat = 0 Then
    4. iMonat = 12
    5. End IfDim q = From a In mainDS.qry_liste_zusammenfassung _
    6. Where DateAndTime.Month(CDate(a.Startdatum)) = iMonat _AndAlso a.Status = "offen" _
    7. Select aDim _excel As New COffice
    8. _excel.Liste = Me_excel.DruckeObjektliste(DirectCast(q.AsDataView(), planerDataSet.qry_liste_zusammenfassungDataTable))
    9. End Sub


    Ich bekomme dann immer die Fehlermeldung, dass eine System.Data.DataTable nicht in eine qry_liste_zusammenfassungDataTable umgewandelt werden kann. Wisst Ihr einen Rat? Tausend Dank im Voraus für Eure Hilfe!

    Gruß
    Marcus

    Edit by der_Kurt:
    * Topic verschoben *

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „der_Kurt“ ()

    Habe die Lösung

    VB.NET-Quellcode

    1. Private Sub ListeOffenLetzterMonat(ByVal sender As System.Object, ByVal e As System.EventArgs)Dim iMonat As Integer = DateAndTime.Month(DateAndTime.Today) - 1
    2. If iMonat = 0 Then
    3. iMonat = 12
    4. End IfDim q = From a In mainDS.qry_liste_zusammenfassung _
    5. Where DateAndTime.Month(CDate(a.Startdatum)) = iMonat _AndAlso a.Status = "offen" _
    6. Select aDim dt As planerDataSet.qry_liste_zusammenfassungDataTable = New planerDataSet.qry_liste_zusammenfassungDataTable()
    7. For Each r In qDim dr As DataRow = CType(r, DataRow)
    8. dt.Rows.Add(dr.ItemArray())
    9. NextDim _excel As New COffice
    10. _excel.Liste = Me
    11. _excel.DruckeObjektliste(dt)End Sub

    So klappt's... Trotzdem danke!
    Gruß
    Marcus

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „mjanz“ () aus folgendem Grund: Ich habe eine Lösung gefunden.

Facebook
Telefonspende