vb@rchiv · Diskussionsforen · Re: Fehler bei Boolschen Operationen?

VB Classic
VB.NET
ADO.NET
VBA
C#

vb@rchiv Offline-Reader - exklusiv auf der vb@rchiv CD Vol.4

HOME WORKSHOPS TIPPS & TRICKS BEFEHLSREFERENZ API-REFERENZ FAQ

··· FORUM

Forenübersicht Suchen Forumsregeln

Allgemeine Foren

Allgemeine Fragen Fragen zur vb@rchiv CD Tipps & Workshops Suche VB Code

VB.NET, C#

Ein-/Umsteiger Fortgeschrittene ADO.NET/Datenbanken ASP.NET/WebServices C# Ecke

VB Classic 5/6, VBA

Einsteiger Fortgeschrittene ActiveX Datenbanken Windows API VB Skript (VBS)

Sonderforen

sev-Komponenten Jobs Suche/Gesuche Projekte & Betatester

DOWNLOAD TOOLBESPRECHUNG BÜCHERECKE MARKETPLACE GRAFIK & DESIGN VB-SEITEN

[417 User online]
[382 im Forum]

Partnerseiten
Top 5 Partnerlinks

Weitere...

Entwickler / Welt

··· Diskussionsforen · Fortgeschrittene Programmierung

Sie sind aktuell nicht angemeldet. Funktionen: Einloggen | Neu registrieren | Suchen

Fortgeschrittene Programmierung

Re: Fehler bei Boolschen Operationen?

Autor: Dirk

Datum: 13.08.07 12:15

Habe noch nie Probleme mit boolschen Operanden gehabt. Geh' mal davon aus, dass das Problem da eher auf deiner Seite liegt.

Füge doch mal eine paar Debug Printings ein. Also z.B.:

Debug.Print ((bIsDetail) And (iDetailSheetVar = 0))

und für die anderen Bedingungen ebenfalls.

Dein if/else Konstrukt sieht überarbeitungswert aus.

Zitat:

If (bIsDetail) And (iDetailSheetVar = 0) Then
                                iDetailSheetVar = 1
                                ReDim Preserve objDetailSheetList(iDetailSheet)
                                Set objDetailSheetList(iDetailSheet) = _
                                  objCurrentSheet
                                iDetailSheet = iDetailSheet + 1
 
                            ElseIf (Not bIsDetail) Then
                                ReDim Preserve objSheetList(iSheet)
                                Set objSheetList(iSheet) = objCurrentSheet
                                iSheet = iSheet + 1
                            ElseIf (bIsDetail) And (iDetailSheetVar = 1) Then
                                ReDim Preserve objDetailSheetList(iDetailSheet)
                                Set objDetailSheetList(iDetailSheet) = _
                                  objCurrentSheet
                                iDetailSheet = iDetailSheet + 1
                            End If

Wenn ich das so sehe, erkenne ich nur 2 Fälle. Und zwar 1. bIsDetail = True und 2. else, denn wenn bIsDetail = False und ((iDetailSheetVar = 1) oder (iDetailSheetVar = 0)) machste das Gleiche, einen else Zweig gibt es nicht (typischer Fehler, übrigens)

If (Not bIsDetail) Then
                                ReDim Preserve objSheetList(iSheet)
                                Set objSheetList(iSheet) = objCurrentSheet
                                iSheet = iSheet + 1
                            Else
                                ReDim Preserve objDetailSheetList(iDetailSheet)
                                 iDetailSheetVar = 1
                                Set objDetailSheetList(iDetailSheet) = _
                                  objCurrentSheet
                                iDetailSheet = iDetailSheet + 1
                            End If

Wenn es noch andere Fälle gibt, als (iDetailSheetVar = 1) oder (iDetailSheetVar = 0), sind die nicht abgehandelt. Weder bei dir, noch bei mir. Siehe nächstes Beispiel.

If (bIsDetail) And ((iDetailSheetVar = 0) Or (iDetailSheetVar = 1)) Then
                                iDetailSheetVar = 1
                                ReDim Preserve objDetailSheetList(iDetailSheet)
                                Set objDetailSheetList(iDetailSheet) = _
                                  objCurrentSheet
                                iDetailSheet = iDetailSheet + 1
 
                            ElseIf (Not bIsDetail) Then
                                ReDim Preserve objSheetList(iSheet)
                                Set objSheetList(iSheet) = objCurrentSheet
                                iSheet = iSheet + 1
                            Else
                                Debug.Assert False 'Diesen Punkt sollte man 
                                ' eigentlich nicht erreichen
                            End If

Gruß
Dirk

--
?Get it right the first time

alle Nachrichten anzeigen

Gesamtübersicht | Zum Thema | Suchen

Thema

Views

Autor

Datum

Fehler bei Boolschen Operationen?	1.151	bolero	10.08.07 17:16
Re: Fehler bei Boolschen Operationen?	819	bolero	10.08.07 17:23
Re: Fehler bei Boolschen Operationen?	806	Dirk	13.08.07 12:15
Re: Fehler bei Boolschen Operationen?	657	MarcG	14.08.07 16:29

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen | Neu registrieren

Funktionen: Zum Thema | Gesamtübersicht Suchen

Neu! sevCommand 4.0

Professionelle Schaltflächen im modernen Design!
Mit nur wenigen Mausklicks statten auch Sie Ihre Anwendungen ab sofort mit grafischen Schaltflächen im modernen Look & Feel aus (WinXP, Office, Vista oder auch Windows 8), inkl. große Symbolbibliothek.

Weitere Infos

Tipp des Monats

Oktober 2025
Matthias Kozlowski

Umlaute konvertieren

Ersetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.)

Details

Access-Tools Vol.1

Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB

Nur 24,95 EUR
Weitere Infos

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel