Филатова ЕленаПротестировала проект. Результата: Периодически не происходит событие Interactive Change. Запуск подряд 5 раз на одной и той же машине : 2 раза произошел 3 - нет.
В поршлый раз я забыла упомянуть ( может это важно) сам комбобокс - это мой класс и это событие прописано в классе.

Слушай а как ты определила что Периодически не происходит событие Interactive Change ? Первый оператор wait wind "...." обязательно без nowait не показывает сообщение? Ведь тебе нельзя пользоватся дебагером.

Ты сказала что сам комбобокс - это мой класс .
Тогда на форме у тебя есть тоже доступ к InteractiveChange. Попробуй там поставить wait & dodefault(). Может на форме в методе у тебя пару пустых строк и в этом вся прблема.

Насколько я в курсе сначало выполняется дочерний код(InteractiveChange доступный на форме) , а затем родительский код (InteractiveChange написанный в класе). Если есть дочерний код (возможно влияние и пустых сток но не проверенно) но нет dodefaul() то родительский код не выполняется.
Если в дочернем коде поставить wait ... то он должен выполнятся всегда.

И еще поясни есть ли у тебя таймеры.Как выяснилось это вещь непредсказуемая.
Второе чем машина на которой не происходит вызова отличается от других (софт,проц,память,диск, размер файла подкачки и т.д.). Вседь чем-то она отличается. Проверь c:\temp & c:\windows\temp - пустые. Может прийдется переустановить windows если ничего не поможет. Ну должена быть причина. И пожалуйста скажи чем все закончилось.

Елена ты обошла проблему, но нерешила. Попробуй поставить в InteractiveChange доступный на форме


и протестируй. Просто интересно у моих пользователей может такое случится что не работает какой либо метод или нет. Если да то при каких условиях.

Вообще-то я не возился с программный гридом. Но попробую. Попробуй пойти сиандартным (для меня) путём.

1.Сохраняешь версию программы
2.На форму кидаешь грид (view - form controls toolbar - grid) подгоняешь под размеры.
3.Щелкаешь по гриду правой кнопкой мыши - меню - builer
- выбираешь нужную таблицу
- набираешь наименование полей
4.Щелкаешь по гриду правой кнопкой мыши - меню - edit
5.Щелкаешь по нужной колонке правой кнопкой мыши - меню - edit
6.выбираешь view - form controls toolbar

7.Щелкаешь левой кнопкой по нужной колонке. В гриде в колонке появится combobox
8.Щелкаешь по гриду правой кнопкой мыши - меню - Properties - закладка All - верхний combobox - выбираешь имя нужной колонки
9.CurrentControl text1 меняешь на combo1. Если нет combo1 повтори пп 4-7 внимательно.
10.Sparse = .F.
11.Properties Верхний combobox - выбираешь

Вообще-то я не возился с программный гридом. Но попробую. Попробуй пойти стандартным (для меня) путём.

1.Сохраняешь версию программы
2.На форму кидаешь грид (view - form controls toolbar - grid) подгоняешь под размеры.
3.Щелкаешь по гриду правой кнопкой мыши - меню - builer
- выбираешь нужную таблицу
- набираешь наименование полей
4.Щелкаешь по гриду правой кнопкой мыши - меню - edit
5.Щелкаешь по нужной колонке правой кнопкой мыши - меню - edit
6.выбираешь view - form controls toolbar
- combobox (стандартный)
- или пиктограмма книжки - add - выбираешь свою библиотеку - combobox
7.Щелкаешь левой кнопкой по нужной колонке. В гриде в колонке появится combobox
8.Щелкаешь по гриду правой кнопкой мыши - меню - Properties - закладка All - верхний combobox - выбираешь имя нужной колонки
9.CurrentControl text1 меняешь на combo1. Если нет combo1 повтори пп 4-7 внимательно.
10.Sparse = .F.
11.Properties Верхний combobox - выбираешь combobox
- BorderStyle = 0
- RowSource - имя ресурса для combobox
- RowSourceType - тип ресурса
- 2 раза по InteractiveChange - открывается окно для кода данного метода.
пиши MessageBox().

На все про все потратишь полчаса. Извини если тебе все это известно но у тебя небыло времени этим заниматся.

Дороботаная программка из Help-а
CLOSE table ALL && Close tables and databases
CLOSE DATABASES ALL

OPEN DATABASE (HOME(2) + 'data\testdata')


SELECT dist title FROM customer INTO CURSOR cursor_2
SELECT cust_id, title FROM customer INTO CURSOR cursor_1 READWRITE

SELECT customer
USE
SELECT cursor_1

frmMyForm = CREATEOBJECT('Form') && Create a Form
frmMyForm.Closable = .F. && Disable the window pop-up menu

frmMyForm.AddObject('cmdCommand1','cmdMyCmdBtn') && Add Command button
frmMyForm.AddObject('grdGrid1','Grid') && Add Grid control

frmMyForm.grdGrid1.Left = 25 && Adjust Grid position

frmMyForm.grdGrid1.SetAll("DynamicBackColor", ;
"IIF(MOD(RECNO( ), 2)=0, RGB(255,255,255) ;
, RGB(0,255,0))", "Column") && Alternate white and green records

frmMyForm.grdGrid1.Visible = .T. && Grid control visible
frmMyForm.cmdCommand1.Visible =.T. && "Quit" Command button visible
frmMyForm.grdGrid1.Column1.Header1.Caption = 'FFeld1'
frmMyForm.grdGrid1.Column1.ControlSource = 'cursor_1.cust_id'

frmMyForm.grdGrid1.Column2.Header1.Caption = 'FFeld2'
frmMyForm.grdGrid1.Column2.ControlSource = 'cursor_1.title'
frmMyForm.grdGrid1.Column2.Sparse = .F.

frmMyForm.grdGrid1.Column2.AddObject("MyCombo1", "MyCombo")
frmMyForm.grdGrid1.Column2.CurrentControl = "MyCombo1"


frmMyForm.SHOW && Display the form
READ EVENTS && Start event processing

DEFINE CLASS MyCombo AS COMBOBOX && вместо COMBOBOX поставь свой << ----------------
Visible = .T.
BorderStyle = 0 && None
RowSource = 'cursor_2.title'
RowSourceType = 2

PROCEDURE InteractiveChange
MESSAGEBOX("Привет",0,"Ку-Ку")
&& DODEFAULT() - убери && когда поставишь свой класс << ----------------
ENDPROC
ENDDEFINE

DEFINE CLASS cmdMyCmdBtn AS CommandButton && Create Command button
Caption = '\<Quit' && Caption on the Command button
Cancel = .T. && Default Cancel Command button (Esc)
Left = 125 && Command button column
Top = 210 && Command button row
Height = 25 && Command button height

PROCEDURE Click
CLEAR EVENTS && Stop event processing, close form
CLOSE table ALL && Close tables and databases
CLOSE DATABASES ALL
ENDDEFINE

Програмка полностью рабочая. Кинь в Tmp.prg и выполни если хочешь. А потом по образу и подобию добавь в своей програмке метод InteractiveChange и всю обработку. Посмотрим что будет. Да InteractiveChange выполняется только тогда когда было изменение если нет - то нет.

Теперь я ничего не понял. Ты говоришь что используешь свой класс, но DEFINE CLASS MyCombo AS COMBOBOX
это использование стандартного COMBOBOX-а. А где у тебя хранится код ?

Закинь всю процедуру init (где создается грид) в txt и прикрепи к сообщению.

Код классный - я думал будет хуже. Но я не нашел где ты объявляешь обработку InteractiveChange? И еще при разработке у тебя грид на форме ? Ты только добавляешь колонки ? Или это не весь код?