Имеется форма, созданная с помощью конструктора, на ней стандартный набор кнопок, так же из конструктора - вперед, назад, добавить запись и т.д. Foxpro 9.0, sp2, установлен на домашнем компе с Win7-64 - кнопка поиск работает без проблем, на ноуте с Win7-32 - нажатие на кнопку поиск вызывает ошибку - несоответствие типа оператора и операнда. Форма и программный код одинаков. Где ошибка?

IgorNG,

Несовпадение типа оператора и операнда, остановка на участке кода кнопки поиска:
IF INLIST(aWizFList[m.i,2],"G","M","U") &&Memo field
=ADEL(aWizFList,m.i)
DIMENSION aWizFList[MAX(1,ALEN(aWizFList,1)-1),ALEN(aWizFList,2)]

---> IF INLIST(aWizFList[m.i,2],"G","M","U") &&Memo field

Переношу весь код
Object searchform
Object cbofields1, procedure init

LOCAL i
PUBLIC aWizFList
DIMENSION aWizFList[1]
=AFIELDS(aWizFList)
FOR m.i = FCOUNT() TO 1 STEP -1
--> IF INLIST(aWizFList[m.i,2],"G","M","U") &&Memo field
=ADEL(aWizFList,m.i)
DIMENSION aWizFList[MAX(1,ALEN(aWizFList,1)-1),ALEN(aWizFList,2)]
ENDIF
ENDFOR
THIS.RowSourceType = 5
THIS.RowSource = "aWizFList"
THIS.VALUE = THIS.LIST[1]

Я конечно извиняюсь, что может не вполне корректно выражаюсь с точки зрения программиста. Это стандартный класс wzbtns.vcx. Код не мой, я его не менял. На одной машине работал без проблем, на этой - выдает ошибку.

Ok, посмотрел в окне trace m=.f., awizflist=.f.

m.i =34, тип =N

.f., тип L

?Alen(AWizFlist,2)=18

34 :)

Всем спасибо за помощь, но похоже "мы не те вопросы задавали". Я не программист, программа прикладная. Как уже и писал, эта программка без проблем шла на одной машине, с тем же кодом, и выдает ошибку на другой. после переустановки системы на домашнем компе появился тот же глюк. После активных размышлений и чтения Help-а я понял, что этот участок кода смотрит структуру таблицы в активной области, создает массив с числом рядов равным числу полей в таблице и 18-ю колонками, во 2-ой колонке - тип поля. затем последовательно ищет поля типа мемо и удаляет соответствующий ряд из массива. Вопрос, действительно, почему все данные в массиве равны .f. - не находит таблицу?