Глюк при построчном чтении MSFlexGrid

[kuhtiov]

Есть объект MSFlexGrid. В него из базы добавлены 45 строк. Я пытаюсь считать их построчно. Делаю так:

Код: Выделить всё

    For i = 0 To 44
   
        form_DB.MSFlexGrid.Row = i
        form_DB.MSFlexGrid.Col = 1
        MsgBox form_DB.MSFlexGrid.Text

    Next i



после i = 30, начинает твориться мистика. После 30-ой строчки читается 32, затем 35, затем 39 и 44, после чего вываливается ошибка 'Invalid row number'

Вопрос, где я мог накосячить? Почему в цикле пропускаются строчки. Смотрю по циклу, значения переменной i идут по порядку.

[alibek]

Насколько я помню, в FlexGrid есть свойство (или метод) TextMatrix.
Почему бы не использовать его?

[kuhtiov]

Ошибаетесь, у FlexGrid нет такого метода. TextMatrix есть у MSFlexGrid, а у меня просто, FlexGrid

[iGrok]

TextMatrix есть у MSFlexGrid, а у меня просто, FlexGrid

Есть объект MSFlexGrid...

[kuhtiov]

Блииин, прошу прощения. Код такой

Код: Выделить всё

    For i = 0 To 44
   
        form_DB.FlexGrid.Row = i
        form_DB.FlexGrid.Col = 1
        MsgBox form_DB.FlexGrid.Text

    Next i



[Хакер]

Сделай проект, настолько минимальный, что нет ничего лишнего, но в котором ещё наблюдается этот момент. Выложи. Подожди овтета.

[kuhtiov]

Код: Выделить всё

Private Sub mnu_Employees_Click()
   
    Dim ReadingListEmployees As New Reading_DB  ' Обращаемся к форме Reading_DB
   
        ' Смотрим кол-во строк в таблице
        SELECT_DB_ERR = ReadingListEmployees.SELECT_DB("SELECT COUNT(*) FROM TRZ_VIPS")  ' Открываем таблицу сотрудников (TRZ_VIPS)
           
            ' Проверяем, нет ли ошибок в запросе
              If SELECT_DB_ERR = "-2147217865" Then MsgBox "Ошибка SQL"
     
        ' Извлекаем из form_DB значение 0-й строчки, 0-го столбца (это и есть кол-во строк)
       
    form_DB.grdResult.Row = 0
    form_DB.grdResult.Col = 0
    DB_Row = form_DB.grdResult.Text ' Количество строк
   
    Employees.TableEmployees.Rows = (form_DB.grdResult.Text + 1)
    Employees.Visible = True

       
        ' Забираем строки из таблицы
        SELECT_DB_ERR = ReadingListEmployees.SELECT_DB("SELECT * FROM TRZ_VIPS")  ' Открываем таблицу сотрудников (TRZ_VIPS)
            ' Проверяем, нет ли ошибок в запросе
              If SELECT_DB_ERR = "-2147217865" Then MsgBox "Ошибка SQL"
   
    For i = 0 To 45
   
        form_DB.grdResult.Row = i
        form_DB.grdResult.Col = 1

    Next i

End Sub



[Хакер]

Сделай проект, настолько минимальный, что нет ничего лишнего, но в котором ещё наблюдается этот момент. Выложи. Подожди овтета.

[kuhtiov]

Файлы базы должны лежать в папке C:\Temp\DATA (или поменяйте путь к базе в проекте)
Для работы проекта возможно потребуется установить Borland Database Engine (дистриб приложить не могу, форум не пропускает. Если будет необходимость, могу выложить на FTP)

[Хакер]

Ты явно плохо понял подчеркнутую часть.

Сделай проект, настолько минимальный, что нет ничего лишнего, но в котором ещё наблюдается этот момент.

[kuhtiov]

Это минимум. Без этого всего этого проблему не выявить

[kuhtiov]

Да, чтобы вызвать ошибку нужно зайти в Справочники > Сотрудники

[Хакер]

Вот значит сам рабой над этим. Отрезай всё лишнее. Если глюк исчезнет, а FlexGrid останется, значит у тебя ошибка в твоём коде. Если останется только FlexGrid, но и глюк, добро пожаловать.

[kuhtiov]

Дык там из кода только:

Код: Выделить всё

Private Sub mnu_Employees_Click()
   
    Dim ReadingListEmployees As New Reading_DB  ' Обращаемся к форме Reading_DB
   
        ' Смотрим кол-во строк в таблице
        SELECT_DB_ERR = ReadingListEmployees.SELECT_DB("SELECT COUNT(*) FROM TRZ_VIPS")  ' Открываем таблицу сотрудников (TRZ_VIPS)
           
            ' Проверяем, нет ли ошибок в запросе
              If SELECT_DB_ERR = "-2147217865" Then MsgBox "Ошибка SQL"
     
        ' Извлекаем из form_DB значение 0-й строчки, 0-го столбца (это и есть кол-во строк)
       
    form_DB.grdResult.Row = 0
    form_DB.grdResult.Col = 0
    DB_Row = form_DB.grdResult.Text ' Количество строк
   
    Employees.TableEmployees.Rows = (form_DB.grdResult.Text + 1)
    Employees.Visible = True

       
        ' Забираем строки из таблицы
        SELECT_DB_ERR = ReadingListEmployees.SELECT_DB("SELECT * FROM TRZ_VIPS")  ' Открываем таблицу сотрудников (TRZ_VIPS)
            ' Проверяем, нет ли ошибок в запросе
              If SELECT_DB_ERR = "-2147217865" Then MsgBox "Ошибка SQL"
   
    For i = 0 To 45
   
        form_DB.grdResult.Row = i
        form_DB.grdResult.Col = 1

    Next i

End Sub



[Хакер]

Стоит глазам только запнуться о SQL-запрос, как дальнейшее чтение останавливается и возникает вопрос: почему его не выкинули? Если без него глюка нет — пусть ищет причину в нём. Если без него глюк есть — пусть отсекает.

Даже если причина легко устранима и с ним, мы тут лентяи, и не хотим смотреть ничего лишнего. Я лентяй, по крайней мере.

Так что rolling back to waiting state.

[kuhtiov]

Стоит глазам только запнуться о SQL-запрос, как дальнейшее чтение останавливается и возникает вопрос: почему его не выкинули?

Потому что именно этот запрос возвращает все данные в таблицу. Без него, таблица будет пуста. Или вы предлагаете заполнить мне ее вручную? Мне та не сложно, только смысл? Я не вижу никаких операций, которые заставили бы чью нить лень биться в истерике. Я тоже ленив! Но набрался сил и запаковал проект и базу . Даже небольшое описание сделал .
Хакер, ты наверное про себя подумаешь, а не охерел ли этот этот тип ? Скажу сразу, нет, т.к. скачать 2 файла и распаковать, не очень сложно. Я понимаю что нужно это мне, и вам это не нужно, но ведь один файл с проектом вы бы слили, а тут на один файл больше. Если все равно лень качать, давайте заполню таблицу и выложу без базы, ок?

Так что continue...

[Хакер]

Или вы предлагаете заполнить мне ее вручную?

Вот именно, а то ещё BDE ради такой мелочи ставить.

[kuhtiov]

Я вообще не то несу. я использовал DataGrid, а не FlexGrid в связи с чем вопрос, как ее заполнить?

P.S. Не спрашивайте откуда я взял FlexGrid

[SergT]

Честно говоря, не очень я понял...

For i = 0 To 45
на 34 строке выдает Invalid row number (неверная строка). Такой строки НЕТ.
Как в этом гриде задают кол-во строк, я не нашел.
form_DB.grdResult.VisibleRows дает 30. Вроде не то. Может взять другой грид или ListView?

PS:
Посмотрел предыдущий пост, вот
http://support.microsoft.com/kb/230126 (по поводу Paradox)

[kuhtiov]

Если в цикле сделать вывод содержимого ячейки например в MSGbox, будет явно видно, что строка есть, но vb ее пропускает. Хрень какая-то. Другой гид брать не пробовал. Мне пока этот глюк интересен. Работать та все должно. Самое интересное, что если я явно указываю номер строки в таблице (например 31), мне возвращается значение 31-ой строки. Но если я действую через переменную, начинается мистика.

P.S. Посмотрел пост мелкософтовский. На сколько я понял, у меня траблы не с парадоксом, а непосредственно с контролом. Если на форме сделать Visable=True, будет видно, что в таблице присутствуют все строки из базы.

[SergT]

Короче, тут надо искать:
form_DB.grdResult.VisibleRows или тут
form_DB.grdResult.DataBindings

У меня стало выдавать form_DB.grdResult.VisibleRows = 43 и ошибка терперь возникает на 44 строке.
Я с этим гридом
http://msdn.microsoft.com/en-us/library ... ac(v=vs.80).aspx
никогда не имел дело и не собираюсь в дальнейшем. Так что, видимо, тебе в поиск...

[kuhtiov]

Блин, еще и у каждого на разной строчке спотыкается. Вообще весело

[kuhtiov]

Товарищи, я выявил закономерность, но не могу понять как фиксить. Дело в том, что при открытии формы с таблицей DataGrid, высота самой DataGrid такая, что влазит несколько строк (в моем случаи было 4 строки). Так вот, все что идет до визуального окончания таблицы, перебирается нормально, но как только цикл переходит на строки DataGrid вне видимости, начинаются скачки через строки. Попробовал растянуть таблицу на всю форму и форму сделать во весь экран, все прекрасно заработало. Все бы ничего, но строк ведь может быть и 100 и 200 и 1000, и их невозможно все поместить на один экран (да и зачем это нужно?). Вообщем, вопрос, почему контрол DataGrid так реагирует на "невидимые строчки таблицы" и как пофиксить? Есть предположения? Согласен на любой изврат (в пределах разумного)


P.S. Для тех, кто столкнется с такой проблемой, самое лучшее, выкинуть фтопку DataGrid и заменить его на MSHFlexGrid