Форум » GUI » Непонятки с фильтром в МиниГуи » Ответить
Непонятки с фильтром в МиниГуи
Vlad04: Есть большой проект, консольный на хХарбоур 1, все работает. Выдрал из него один блок и сделал на МиниГуи . Не работает и совсем простой участок [quote] Select PRICE_S nSyMkb:=0 set filter to go top set filter to (KSG_CODE =nKsgMkb ) go top if !eof() nSyMkb:=PRICE_S->Tarif FrmGL.List_1.AddItem('PRICE_S->Tarif =',Str(PRICE_S->Tarif,15,2)) else FrmGL.List_1.AddItem('Тариф Не найден !, nKsgMkb '+Str(nKsgMkb,3)+' и дата '+Dtos(dDatEnd)) [/quote] Условие !eof() выполняется, но переменной nSyMkb значение не присваивается.
Ответов - 4
Haz: Vlad04 пишет: Не работает и совсем простой участок МиниГуи тут не причем , это всего лишь графическая морда. Может проблема в том что в Harbour что то работает не так, как в xHarbour 1 Натыкай контрольных точек и проверь 1 Ставится ли фильтр set filter to (KSG_CODE =nKsgMkb ) go top n := 0 Dbeval({|| n++}) MsgDebug(n) // число записей попавшее в фильтр go top 2 что присваивается nSyMkb:=PRICE_S->Tarif MsgDebug(PRICE_S->Tarif)
gfilatov2002: Haz пишет: МиниГуи тут не причем Присоединяюсь Vlad04 пишет: Есть большой проект, консольный на хХарбоур 1 Встречный вопрос: а что Вам мешает использовать МиниГуи вместе с xHarbour?
Vlad04: Спасибо! Все оказалось просто - элементарная моя описка. Встречный вопрос: а что Вам мешает использовать МиниГуи вместе с xHarbour? А Ide работу с xHarbour поддерживает? Пробовал с xHarbour, который идет в Вашей поставке, изменил все настройки в IDE. Но получаю сообщение об ошибке Error E:\_PROGI\_MING\_X3F28~1\_Temp.Bc 2: Command syntax error
gfilatov2002: Vlad04 пишет: А Ide работу с xHarbour поддерживает? Вы правы, Ide не работает сейчас с xHarbour Но Вы можете попробовать использовать для сборки проекта под xHarbour утилиту MPM из поставки Минигуи (лежит в папке \Utils\MPM).
полная версия страницы