בס"דעד כמה שאני זוכר את QB, א"א לעשות REDIM למערך שהוגדר באופן שאתה הגדרת אותו.
אתה צריך:
Dim AI() As Integer ReDim AI(1,1) As Integer ... ReDim Preserve AI(2,1) As Integer
|
תבדוק בהלפים איפה בדיוק הפרסרב נכנס.
בברכה...
נ.ב.
באיזו גרסה של QB אתה משתמש?