Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
MyQueue Queue
FL Long
end
MyGroup Group
FS String(20)
Q1 &Queue
end
Code
Message( Where(MyGroup, MyGroup.Q1) ) ! Вроде бы очевидное решение -> Ошибка с вылетом.
MyGroup.Q1 &= MyQueue
Message( Where(MyGroup, MyGroup.Q1) ) ! Мы пойдём другим путём -> Результат = 0. :(
А как тогда узнать номер (и имя) поля в группе ? Спасибо за содействие.
PROGRAM
MAP
END
MyGroup GROUP
F1 LONG !Field number 1
F2 SHORT !Field number 2
F3 STRING(30) !Field number 3
InGroup GROUP !Field number 4
F1 LONG !Field number 5
F2 SHORT !Field number 6
F3 STRING(30) !Field number 7
END
END
CODE
W# = 1
LOOP
MESSAGE(WHO(MyGroup, W#))
W# += 1
WHILE WHO(MyGroup, W#) <> ''
Рай совершает ошибки ничуть не реже чем ад. Просто у него хорошая пресса
MyQueue Queue
FL Long
end
MyGroup Group
FS String(20)
gr group
pqQueue &Queue
plQueue long,over(pqQueue)
end
end
code
Message( Where(MyGroup, MyGroup.gr.plQueue) )
MyGroup.gr.pqQueue &= MyQueue
Message( Where(MyGroup, MyGroup.gr.plQueue)&'|'& MyGroup.gr.plQueue)