проблемка с MSFlexGrid

[Жентос]

Здравствуйте, подскажите, пожалуйста, как в MSFlexGrid просуммировать элементы(числа) одного столбца..они должны быть double..

[Teslenko_EA]

Здравствуйте Жентос.
сумму колонки или строки можно получить циклом

For iRow = 0 To MSFlexGrid1.Rows.Count - 1
    i = i + MSFlexGrid1.TextMatrix(iRow, iCol) 
Next

Евгений.

[Жентос]

внес поправку в код... теперь при запуске программы, он выдает ошибку : "Invalid qualifier"
подскажите, пожалуйста, как избежать этого?

[Жентос]

Сообщение от Teslenko_EA

Здравствуйте Жентос.
сумму колонки или строки можно получить циклом

For iRow = 0 To MSFlexGrid1.Rows.Count - 1
    i = i + MSFlexGrid1.TextMatrix(iRow, iCol) 
Next

Евгений.

Спасибо за помощь, Евгений
у меня возникает ошибка(вышеуказанная).. можешь, пожалуйста, подсказать как этого можно избежать?
у меня программа-база данных студентов с общим показателем по группе.. я использую Data и Textbox'ы для внесения данных, а MSFlexGrid у меня для показа данных в виде таблицы.. я прописал код для суммирования оценок(оценка каждого студента хранится в Label5) через Data при нажатии кнопки:

For i = 2 To Data1.Recordset.RecordCount
s = s + Label5.Caption
Next i
Label12.Caption = Round(s / Data1.Recordset.RecordCount, 2)

но он у меня выводит число, не равное сумме этих значений.. потому я и подумал про суммацию столбца оценок во MSFlexGrid.. но он выдает ошибку..... подскажи как сделать правильно, пожалуйста.. порекомендуй чем можно посчитать эти значения..

[Teslenko_EA]

Здравствуйте Жентос.
Выкладывайте архив с заранее подготовленным файлом БД (подготовка подразумевает - избавление от переизбыточных данных, избавление от OLE объектов и сжатие средствами MS Access) на этой странице, и у Вас появится возможность получить реальную помощь, без объяснения "на пальцах".
Евгений.

[Жентос]

Спасибо..
Подскажите, пожалуйста..

[Жентос]

та же программа с ошибкой во FlexGrid'e

[Teslenko_EA]

Внесите в Ваш код подобные корректировки:

Private Sub Command1_Click()
Const s0 = "Количество записей : ", s1 = "Средний балл : "
Dim s$: s = Data1.Recordset.RecordCount
Label1.Caption = s0 + s
Label2.Caption = s1 + sumCol
End Sub
Function sumCol() As String
Dim s$, iVal#, i%
For i = 1 To MSFlexGrid1.Rows
    s = MSFlexGrid1.TextMatrix(i - 1, 4)
    If IsNumeric(s) Then iVal = iVal + CDbl(s)
Next
sumCol = Format(iVal / (i - 1), "#,##0.00")
End Function

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

[Жентос]

Здравствуйте, Евгений. Спасибо вам, что уделяете время начинающим пользователям среды VB.
Я изменил код, прописав также как вы посоветовали. Но у меня возникла проблемка... код выдает значение, которое не соответствует реальному.. к примеру: у меня 4 записи, средняя оценка каждого из студентов >3 , а средний балл выдает численно равным 2,93 ... еще не понимаю, почему в коде:

s = MSFlexGrid1.TextMatrix(i - 1, 4)
и
sumCol = Format(iVal / (i - 1), "#,##0.00")

ставится i-1 и в MSFlexGrid1.TextMatrix(i - 1, 4) стоит 4 ?
просто вроде считает по пятому столбцу в MSFlexGrid'е, а меняя эту 4-ку на 5-ку, при клике на кнопку программа выдает ошибку: "Subscript out of range"
Подскажите, пожалуйста..

[Teslenko_EA]

Здравствуйте Жентос.
Начало нумерации массивов с единицы (как в Excel), это скорее исключение, в большинстве случаев нумерация начинается с нуля (если не задано иное значение).
Это утверждение касается и TextMatrix - т.е. у пятой колонки матрицы индекс - 4, в то же время у колонки Grid`а индекс = 5, т.к. существует (неотображаемая) нулевая колона аналогично ярлыкам строк Excel установив свойсво Grid`а FixedCols в 1 в этом можно убедиться. Такая же ситуация со сстроками - первой строке Grid`а соответствует нулевая строка матрицы, и потому:

...
For i = 1 To MSFlexGrid1.Rows
    s = MSFlexGrid1.TextMatrix(i - 1, 4)

поставив точку прерывания в коде (F9 на текущей строке) с помощью пошагового выполнения (F8) можно проверить корректность выполнения процедуры, контролируя значения переменных.
Удачи Вам, пробуйте.
Евгений.