Linq - Group Join - Synatax Probleme

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 160 Antworten in diesem Thema. Der letzte Beitrag () ist von StGo.

    @StGo
    Das ist eine Exception vom Designercode, der ist nicht die Ursache deines Problems.
    Schaue jetzt in die Aufrufe-Liste und mache beim unmittelbar vorhergehenden Aufruf, der anklickbar ist und nicht von einem Designercode abstammt, einen DoppelClick darauf.
    Bei der neu erscheinenden Codezeile setzt du gleich einmal einen Haltepunkt, denn diese Codezeile verursacht deinen Fehler.
    Im Lokal-Fenster kannst du dann die Zustände untersuchen...

    @StGo
    Also ich kann dein Projekt nicht anschauen, weil ich nur VS2010 habe.
    Du zeigst uns einen Designercode, wo eine Exception geworfen wird, wo aber zu 99,9%-er Sicherheit die Ursache vom vorherigen Benutzercode entstammt.
    Wenn die BS.Current Nothing ist, dann kannst du mit BS.Count > 0 diesen Umstand testen und aus der Prozedur vorzeitig aussteigen oder du testest explizit mit

    VB.NET-Quellcode

    1. If BS.Current Is Nothing Then '... Ausstieg

    Was spricht den da dagegen?

    Morgen,

    Was spricht den da dagegen?


    prinzipielle gar nichts. Wenn ich die Abfrage einbaue bekomme ich einen Fehler im Designer. Ich hablte das auch nicht für unlogisch. Über dem Fehler gibt es nicht wirklich Code (zumindest der von mir ist). Der Fehler tritt auf, wenn auf die Bindingsource zugegriffen wird. Zu dem Zugriff steht dort aber nichts drin. Warum .Current is Nothing nicht funktioniert ist eine gute Frage.

    Das ist das einzige was vor dem Fehler ausgeführt wird:

    VB.NET-Quellcode

    1. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    2. 'Zentriert starten
    3. Dim Bildschirm As Screen = Screen.PrimaryScreen
    4. Location = New Point(Bildschirm.Bounds.Left + (Bildschirm.Bounds.Width - Width) \ 2, Bildschirm.Bounds.Top)
    6. 'Reiter verstecken
    7. 'TabControl1.Alignment = TabAlignment.Bottom
    8. TabControl1.SizeMode = TabSizeMode.Fixed
    9. TabControl1.ItemSize = New Size(0, 1)
    10. TabControl1.Appearance = TabAppearance.Buttons
    11. TabControl1.ResumeLayout()
    13. 'TabControl2.Alignment = TabAlignment.Bottom
    14. TabControl2.SizeMode = TabSizeMode.Fixed
    15. TabControl2.ItemSize = New Size(0, 1)
    16. TabControl2.Appearance = TabAppearance.Buttons
    17. TabControl2.ResumeLayout()
    19. 'Daten generieren
    20. 'datenGenerieren()
    22. End Sub


    Gruß

    Welche Abfrage? Du hast nicht nach "BS.Current is Nothing" gefragt, sondern nach .Count>1 oder?

    An welcher Stelle fragst du überhaupt ab, wo kommt plötzlich Form_Load her?


    Ich bin ja froh das ich Hilfe bekomme aber manchmal frage ich mich was das soll?

    Um es kurz zu machen. Ja es gibt ausser dem Event noch weiteren Code im Projekt. Und der Form Load Code kommt daher, dass die These im Raum stand das der Fehler im vorherigen Code lag! Darum der Code Form load.

    Aber falls die Projektdaten nicht reichen hier nochmal der complette Code:

    VB.NET-Quellcode

    1. Option Strict On
    3. Imports System.IO
    5. Public Class frmMasterDetail
    7. Private _Datafile As New FileInfo("Dataset_Stammdaten.xml")
    9. Private Sub MenuStrip1_MenuClicked(ByVal Sender As Object, ByVal e As EventArgs) Handles DatenGenerierenToolStripMenuItem.Click, SaveToXMLToolStripMenuItem.Click, LadenAusXMLToolStripMenuItem.Click
    10. Select Case True
    11. Case Sender Is DatenGenerierenToolStripMenuItem
    12. datenGenerieren()
    13. Case Sender Is SaveToXMLToolStripMenuItem
    14. speicherToXml()
    15. Case Sender Is LadenAusXMLToolStripMenuItem
    16. ladenVonXml()
    17. End Select
    18. End Sub
    20. Private Sub datenGenerieren()
    21. 'Daten generieren
    22. Dim AnzahlZuGenerierendenDatensaetze As Integer = 19
    23. Dim tmp As Integer
    24. Dim tmpXls As Integer
    25. Dim tmpPdf As Integer
    26. Dim tmpDateityp As String
    27. Dim Cell As String
    28. Dim Bereich As String
    29. Dim rnd As New Random
    31. DsStammdaten.Clear()
    33. 'Tabelle Stammdaten generieren
    34. For i = 0 To AnzahlZuGenerierendenDatensaetze
    35. tmp = rnd.Next(1, 3)
    36. Select Case tmp
    37. Case 1
    38. tmpDateityp = "xls"
    39. Case 2
    40. tmpDateityp = "pdf"
    41. Case Else
    42. tmpDateityp = "error"
    43. End Select
    44. DsStammdaten.Stammdaten.AddStammdatenRow(i, "C:\Eingabepfad\hier liegt mein Dokument" & i, "C:\Ausgabepfad\hier wird es abgelegt" & i, tmpDateityp)
    45. Next
    47. 'Tabelle XLS generieren
    48. For j = 0 To AnzahlZuGenerierendenDatensaetze
    49. If DsStammdaten.Stammdaten.Rows(j).Item(4).ToString = "xls" Then
    50. tmpXls = rnd.Next(1, 5)
    51. Select Case tmpXls
    52. Case 1
    53. Cell = "A"
    54. Case 2
    55. Cell = "B"
    56. Case 3
    57. Cell = "C"
    58. Case 4
    59. Cell = "D"
    60. Case Else
    61. Cell = "error"
    62. End Select
    63. Dim tmpIdStammdaten = DsStammdaten.Stammdaten(j)
    64. DsStammdaten.XLS.AddXLSRow(tmpIdStammdaten, CStr(j), Cell & j)
    65. End If
    66. Next
    68. 'Tabelle PDF generieren
    69. For k = 0 To AnzahlZuGenerierendenDatensaetze
    70. If DsStammdaten.Stammdaten.Rows(k).Item(4).ToString = "pdf" Then
    71. tmpPdf = rnd.Next(1, 4)
    72. Select Case tmpPdf
    73. Case 1
    74. Bereich = "X"
    75. Case 2
    76. Bereich = "Y"
    77. Case 3
    78. Bereich = "Z"
    79. Case Else
    80. Bereich = "error"
    81. End Select
    82. Dim tmpIdStammdaten = DsStammdaten.Stammdaten(k)
    83. DsStammdaten.PDF.AddPDFRow(tmpIdStammdaten, "Der Text wird im Bereich: " & Bereich & k & " gesucht.")
    84. End If
    85. Next
    86. End Sub
    88. Private Sub speicherToXml()
    89. Me.Validate()
    90. DsStammdaten.WriteXml(_Datafile.FullName)
    91. MessageBox.Show("Daten erfolgreich gespeichert (siehe Projektverzeichnis\bin\Debug)")
    92. End Sub
    94. Private Sub ladenVonXml()
    95. DsStammdaten.Clear()
    96. If _Datafile.Exists Then
    97. DsStammdaten.ReadXml(_Datafile.FullName)
    98. MessageBox.Show("Daten erfolgreich geladen")
    99. Else
    100. MessageBox.Show("Keine Daten vorhanden")
    101. End If
    103. End Sub
    105. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    106. 'Zentriert starten
    107. Dim Bildschirm As Screen = Screen.PrimaryScreen
    108. Location = New Point(Bildschirm.Bounds.Left + (Bildschirm.Bounds.Width - Width) \ 2, Bildschirm.Bounds.Top)
    110. 'Reiter verstecken
    111. 'TabControl1.Alignment = TabAlignment.Bottom
    112. TabControl1.SizeMode = TabSizeMode.Fixed
    113. TabControl1.ItemSize = New Size(0, 1)
    114. TabControl1.Appearance = TabAppearance.Buttons
    115. TabControl1.ResumeLayout()
    117. 'TabControl2.Alignment = TabAlignment.Bottom
    118. TabControl2.SizeMode = TabSizeMode.Fixed
    119. TabControl2.ItemSize = New Size(0, 1)
    120. TabControl2.Appearance = TabAppearance.Buttons
    121. TabControl2.ResumeLayout()
    123. 'Daten generieren
    124. 'datenGenerieren()
    126. End Sub
    128. Private Sub StammdatenBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles StammdatenBindingSource.CurrentChanged
    129. 'If StammdatenBindingSource.Current Is Nothing Then
    130. ' Return
    131. 'Else
    132. 'If StammdatenBindingSource.Current <> 0 Then
    133. Dim rwStamm = DirectCast(DirectCast(StammdatenBindingSource.Current, DataRowView).Row, dsStammdaten.StammdatenRow)
    134. If rwStamm.RowState <> DataRowState.Detached Then
    135. Select Case rwStamm.Dateityp
    136. Case "xls"
    137. TabControl1.SelectedIndex = 1
    138. TabControl2.SelectedIndex = 1
    139. Case "pdf"
    140. TabControl1.SelectedIndex = 2
    141. TabControl2.SelectedIndex = 2
    142. Case Else
    143. TabControl1.SelectedIndex = 0
    144. TabControl2.SelectedIndex = 0
    145. End Select
    146. End If
    147. End Sub
    149. Private Sub cmdXlsLoeschen_Click(sender As Object, e As EventArgs) Handles cmdXlsLoeschen.Click
    151. End Sub
    153. Private Sub cmdPdfLoeschen_Click(sender As Object, e As EventArgs) Handles cmdPdfLoeschen.Click
    155. End Sub
    157. Private Sub cmdXlsSpeichern_Click(sender As Object, e As EventArgs) Handles cmdXlsSpeichern.Click
    159. End Sub
    161. Private Sub cmdPdfSpeichern_Click(sender As Object, e As EventArgs) Handles cmdPdfSpeichern.Click
    163. End Sub
    165. End Class

    StGo schrieb:

    aber manchmal frage ich mich was das soll?


    Ich weiß auch nicht, warum du von Anfang an so aggressiv auf mich reagierst ;( Wirst du schon wissen, warum... Aber dann frage mich das nicht.

    Du hast immer noch nicht geschrieben, welcher Code bei dir welchen Fehler auslöst. Der Code, der auskommentiert war, war syntaktisch falsch, also nehme ich an, du hattest einen anderen...


    Aber dann frage mich das nicht


    Ich denke nicht das ich dich direkt angesprochen habe. Und ausprobiert habe jede Idee die irgendwer gepostet hat. Wo mein Fehler liegt und was ihn auslöst habe ich in Post 104, 107, 110, 112 beschrieben. Der Fehler hänge davon ab welche If-Abrage auskommentiert ist. Wie in passenden Posts beschrieben.

    @EDR
    hängt an
    Dateien

Facebook
Telefonspende