Подскажите в чем моя ошибка?

В командной строке пишу test.exe Table.dbf

Сам Test.Prg имеет вид:

PARAMETERS cTable

ON ERROR DO errhand WITH ERROR( ), MESSAGE( ), MESSAGE(1), PROGRAM( ), LINENO( )

IF TYPE("cTable") <> "C"
=MESSAGEBOX("Не заданы параметры !";
+CHR(13)+CHR(13)+"Вызов: Test.exe MyFile.dbf " ,0+16,"Ошибка")
CANCEL
ENDIF

wait window 'aa'

=MESSAGEBOX("Наш параметр: "+cTable+" !",0+16,"")

CLOSE ALL
CLEAR ALL
QUIT
***********************
в результате
wait window 'aa'
- видим
=MESSAGEBOX("Наш параметр: "+cTable+" !",0+16,"")
- не видим, и программа остается висеть в процессах...
где грабли????
спасибо всем!

2 ALEX
все на что Вы указали как на ошибки ими не является :)

Дмитрий Маликовв wait window выведи cTable и посмотри

выволил и в wait window (а собственно какая разница MessageBox или wait window )
результат один - ничего не появляется и программа висит в процессах (Версия ВФП 7)

alex11100параметр там приходит пустой символьный
так и будет - это и есть правильно
поэтому первый иф и не работал

на колич-во параметров нужно проверять !!!!

если запускаю:
В командной строке пишу test.exe

СРАБАТЫВАЕТ!!!!
*****************************************************
IF TYPE("cTable") <> "C"
=MESSAGEBOX("Не заданы параметры !";
+CHR(13)+CHR(13)+"Вызов: Test.exe MyFile.dbf " ,0+16,"Ошибка")
CANCEL
ENDIF
*****************************************************
Если запускаю с Параметром НЕ срабатывает, значит проблемное место не там так ведь???

А если параметр там приходит пустой и символьный, как ты указал, то куда девается
=MESSAGEBOX("Наш параметр: "+cTable+" !",0+16,"")
получили бы "Наш параметр", и все, а не получаем НИЧЕГО

alex11100параметр ты ему указал
он и думает что все нормально - он пустой

он пустой- вот тебе и ничего не светится!!!!

= MessageBox('Мой параметр ' + cTable)
тогла в ЛЮБОМ случае бы появлялся, а раз его нету то причина в чем???

Дмитрий Маликовубери ON ERROR и посмотри, мож ошибка какая появится


Нет увы..
"я в шоке"

Дмитрий Маликовприведенный текст программы - полный? или что-то скрывается от нас??

абсолютно полный текст (вначале в нем был USE cTable.. ALTER cTable....)
но встал вопрос о пропаже параметра, и программа укоротилась до варианта (см. выше)

Разве что Config:
SCREEN=OFF
RESOURCE=OFF
CODEPAGE = 1251

но это не должно иметь отношения к параметру

alex11100parameters cTable
if parameters()=0 or empty(cTable)
=messagebox('Укажите параметр')
cancel
endif

=messagebox(cTable)
.............


напиши так, а
сейчас еще с колотушкой 3 часа бегать будешь
и не нужно он ерроров никаких

спасибо! так пошло.. мистика, а какая ему разница-то????

ВладимирМВозьми имя таблицы в кавычки

test.exe "Table.dbf"


с кавычками 40 минут назад пробовал.. не помогает :-) именно EMPTY видимо помогло.. но какая разница MessageBox-у я не знаю

1 СПАСИБО alex11100
твой вариант сработал

2
alex11100в проекте
прогу как майн сделай

Алекс - приколист.. вобщем твой прикол я понял (P.S. пишу на фоксе далеко не первый год )


alex11100писать ровненько нужно
и тогда задумываться не нужно чего пришло
и почему проблемы

вот этого не понял? что значит ровненько?

Дмитрий Маликов
а как он у вас со SCREEN = OFF показывал WAIT WINDOW

не веришь? проверь показывает... ничего кроме WAIT WINDOW "ля ля ля"
я Серьезно!!!

Дмитрий Маликову тебя комп с колонками?
после показа wait window messagebox появляется на заднем плане
если убрать wait, то появляется на переднем

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

[quot}
ровненько - это умненько, красивенько
и удобоварименько для профессора(процессора и вообще железного друга)

а то че было в начале ...[/quot]

а что было раньше? с учетом замечания от (Дмитрий Маликов) мой первоначальній код РАБОТАл так же точно как и твой вот многооконность винды меня и сгубила
А если ты про неудобоваримое написание кода, без абзацев и так далее - то звиняйте некогда в форум еще и тэги прописывать