Реализация контроля ввода в Janus GridEX 2000 (любом гриде)

[hasuhands]

Никак не могу реализовать контроль ввода во время редактирования данных через грид.

То есть, к примеру, таблица Студент-Стипендия.
Как сделать так, чтобы в столбец Стипендия можно было вводить только числа.

Есть такая функция:

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

Private Sub object_KeyPress( [ index As Integer,] keyascii As Integer)

The KeyPress event syntax has these parts:

Part    Description
object    An object expression that evaluates to an object in the Applies To list.
index An integer that uniquely identifies a control if it's in a control array.
keycode  An integer that represents the key code. 
keyascii  An integer that returns a standard numeric ANSI keycode. keyascii is passed by reference; changing it sends a different character to the object.

Changing keyascii to 0 cancels the keystroke so the object receives no character.


Но как ее привязать к конкретному столбцу? [/code]

[Andrey Fedorov]

В событии KeyPress Grid-a получаешь колонку Grid-a (Свойство Col) и дальше действуешь в зависимости от этого...

[Andrey Fedorov]

Кстати, ниже пример такой проверки (функцию CheckKeyPress напишешь сам):

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

Private Sub GEdit_KeyPress(KeyAscii As Integer)
    Dim f As ADODB.Field, c As JSColumn

    If GEdit.IsGroupItem(GEdit.Row) Then Exit Sub
    If GEdit.Col < 1 Then Exit Sub
    Set c = GEdit.Columns.ItemByPosition(GEdit.Col)
    If c.FetchData Then Exit Sub
    If c.HasValueList Then Exit Sub
    Select Case c.EditType
        Case jgexEditCombo, jgexEditDropDown, jgexEditCheckBox
            Exit Sub
    End Select
   
    Select Case GEdit.DataMode
        Case jgexADO
            If c.DataField <> "" Then
                Set f = GEdit.AdoRecordset.Fields(c.DataField)
                CheckKeyPress GEdit.Value(c.Index), KeyAscii, f.Type
            End If
    End Select
End Sub