לולאה שתעקוף איברים מסוימים במערך

[shsh654]

יש לי לולאה שעוברת על מערך (תיבת רשימה) ומייצרת ממנו מחרוזת
כיצד אפשר לומר ללולאה שתדלג על איברים מסויימים?

For L = 0 To Me!City.ItemsSelected.Count - 1
   sSqlWhere = sSqlWhere & "'" & Me!City.ItemData(Me!City.ItemsSelected(L)) & "',"
Next L
If Len(sSqlWhere) > 0 Then sSqlWhere = Left(sSqlWhere, Len(sSqlWhere) - 1)

פורסם במקור בפורום CODE613 ב29/01/2017 13:33 (+02:00)

[shsh654]

זה מה שעשיתי. זה עובד.
זה נכון כך? יש רעיון אחר?

For L = 0 To Me!City.ItemsSelected.Count - 1
   If x = Skipping Then GoTo Skip
   sSqlWhere = sSqlWhere & "'" & Me!City.ItemData(Me!City.ItemsSelected(L)) & "',"
Skip:
Next L
If Len(sSqlWhere) > 0 Then sSqlWhere = Left(sSqlWhere, Len(sSqlWhere) - 1)

פורסם במקור בפורום CODE613 ב29/01/2017 14:28 (+02:00)

[רחמים]

אני מבין שאתה כותב ב VBA אז אין שם את מילת המפתח CONTINUE שמקפיצה למחזור הבא של הלולאה כמו שיש ב C ודוטנט אז GOTO זה הפיתרון הכי טוב.
אבל אתה יכול גם לשים את כל הקוד בתוך בלוק IF וכך אם התנאי לא מתקיים הלולאה ממשיכה לשלב הבא.

פורסם במקור בפורום CODE613 ב29/01/2017 14:51 (+02:00)

[dovid]

@רחמים

אבל אתה יכול גם לשים את כל הקוד בתוך בלוק IF וכך אם התנאי לא מתקיים הלולאה ממשיכה לשלב הבא.

נראה לי הכי טוב. זה פחות מילים ופחות בלגן.

הדוגמה משונה, כי ישנה בדיקה על x שאיננו מושפע כלל בגוף הלולאה.

פורסם במקור בפורום CODE613 ב29/01/2017 16:58 (+02:00)