Проверь установки на всех машинах. Панель управления - язык и стандарты - числа и время. Один раз у меня было 2 * 2 = 5 из-за этих установок. В метод входит всегда но не проходит по if (я так думаю).

И покажи код InteractiveChange.

Я бы написал

блин не ту кнопку нажал.
вообщем вместо array ставишь курсор.
и смотришь кол-во записей.

из доки
Видишь -=самой последней =- а у тебя после SQl - select стоит простой select.
Может _tally показывает данные по таблице -=select (this.cListName)=-

Да еще не пользуйся select ... into array ...
У фокса есть кривоватость , если нет записей он не трогает массив. Если есть 1 пустая запись то трудно отличить это объявленный массив или это значение которое вернул select .

----------------------------------------------------------
Делай своё дело и будь что будет.

To Igor Korolyov
select ... into array ... работает с _TALLY я ничего не говорю.
Я сказал что работать с -=select ... into array ... =- ни есть гуд.

Для этого надо
1. Надо создать массив.
2.Проверить изменился ли массив.
3.работа с массивом

-=select ... into cursor ... =-
1.Работать с курсором

Есть разница для программы и для чтения кода?


_________________________
Делай своё дело и будь что будет.

блин ну вы накинулись

Человек как правило пользуется одной проверенной схемой. into array есть скользкий момент о чем я и предупреждаю человека.


_________________________
Делай своё дело и будь что будет.

Ну хорошо Sergey Sizov докажи в каком случае я не могу обойтись без into array. Хотя бы теоретически. ИМХО эта схема нафиг не нужна.


_________________________
Делай своё дело и будь что будет.

+1 довод в пользу курсора

корсор.имя_поля - читабельно

MyArray[5] - через полгода тебе не о чем не скажет. + перестановка
очередности полей в таблице[ввод нового поля на первой позиции] и твоя программа не работает.

_________________________
Делай своё дело и будь что будет.

Ты поставила Wait window "1...3" ?
Wait window "2" под if.

И что показывает ?


_________________________
Делай своё дело и будь что будет.

To Sergey Sizov.

Готов выслушать с открытыми ушами когда лучше использовать массив. И если доводы будут коректными - применять на практике. А тебе выставить виртуальное пиво. В жизни мы вряд ли встретимся.

Филатова ЕленаПротестировала проект. Результата: Периодически не происходит событие 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? И еще при разработке у тебя грид на форме ? Ты только добавляешь колонки ? Или это не весь код?

Для начала попробуй


with .columns(i)
&& .RemoveObject('text1') вставил && << -------------
.AddObject('combo', 'combo')
.CurrentControl = "combo" && << -------------
.combo.visible=.t.

* номер группы документов для поиска названия группы


Так я и не понял у тебя MyCombo.vcx и класс combo внутри? Или как? Может быть у тебя где-то стоит
DEFINE CLASS Combo AS COMBOBOX