拥有1600个条目的组合框很糟糕!你真的应该改变输入类型。使用搜索选项进行小型可搜索浏览或输入字段。
从下拉列表中的1600个可能条目中进行选择是一种糟糕的用户体验。
我同意@jensd关于UX的评论。
但是你应该通过不分配给LIST-ITEMS属性但通过使用ADD-FIRST或ADD-LAST方法来解决组合框的限制。
但是有了这么多的东西,它就会变成懒散的
DEFINE VARIABLE cb AS CHARACTER NO-UNDO VIEW-AS COMBO-BOX . DEFINE VARIABLE i AS INTEGER NO-UNDO. FORM cb WITH FRAME a. DO i = 1 TO 20000: cb:ADD-LAST ("1234567890") . END. MESSAGE cb:NUM-ITEMS VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.