проблемка с MSFlexGrid

[Жентос]

Здравствуйте, Евгений.
Хм.. странно.. у меня все шаги выполняются.. но при i=1
в сравнении

If IsNumeric(s) Then

пролетает действие

iVal = iVal + CDbl(s)

Вроде 0 тоже является номером??...
Извините за беспокойство, не могли бы вы выложить программу, которая у вас получилась?

[Teslenko_EA]

Здравствуйте Жентос.
если у MSFlexGrid свойство FixedCols = 0, а FixedRows = 1
функция :

Function sumCol() As String
Dim s$, iVal#, i%
For i = 1 To MSFlexGrid1.Rows - 1
    s = MSFlexGrid1.TextMatrix(i, 4)
    If IsNumeric(s) Then iVal = iVal + CDbl(s)
Next
sumCol = Format(iVal / (i - 1), "#,##0.00")
End Function

должна работать (считать) корректно.
Евгений.

[Жентос]

Евгений, спасибо вам большое, я вам очень благодарен..

[Жентос]

А можно еще спросить вас, Евгений, как можно обновить MSFlexGrid при внесении, удалении данных?.. т.к. программа считает средний балл по тем данным, которые были в таблицы, а при добавлении, либо удалении данных, программа показывает то же конечное значение, что и начальное..

[Teslenko_EA]

Здравствуйте Жентос.
аппетит приходит во время еды.
Grid отображает данные предоставляемые поставщиком - Data
обновить набор данных можно командой Data1.Refresh
Удачи Вам.
Евгений.

[Жентос]

Спасибо огромное вам, не знаю чтобы я без вас делал)))
эмм.. а можно в Grid'е делать сортировку по фамилии? подскажите, пожалуйста, если вас не затруднит.

[Teslenko_EA]

"в Grid'е делать сортировку" - нельзя (в этом контроле точно)
но можно работать с "поставщиком"
создайте на форме кнопку и "повесьте" на неё код:

Private Sub CommandNew_Click()
Dim s$
Const sQ1 = " desc", sQ0 = "SELECT * FROM Список2 ORDER BY [Средний балл]"
s = sQ0 + IIf(Right(Data1.RecordSource, 4) = "desc", "", sQ1)
Data1.RecordSource = s
Data1.Refresh
End Sub

он продемонстрирует возможности сортировки.
простите за шутку с "аппетитом"
Евгений.

[Жентос]

Спасибо.. только как я понимаю, действие этой кнопки заключается в перевороте данных относительно какой то средней данной, т.е. они меняются местами.. значит просто нужно вводить данные в алфавитном порядке, чтобы не было такого "конфуза"?

[Teslenko_EA]

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

[Жентос]

извините, а можно спросить как можно сделать проверку вводимых данных, когда пользователь вводит строковую величину(например, по ошибке) в label, содержащий численные данные, так чтобы программа не выдавала ошибку "Type mistmatch"?

1 math = InputBox("введите оценку по математике", math) 'оценка по математике
If IsNumeric(math) Then
If math < 3 Or math > 5 Then GoTo 1
Else: GoTo 1
End If

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