程序代码：

** Test.prg
CREATE CURSOR 编码表 (编码 C(10))
INSERT INTO 编码表 VALUES ("202")
INSERT INTO 编码表 VALUES ("303")
INSERT INTO 编码表 VALUES ("101")

of = CREATEOBJECT("form1")
of.show(1)

DEFINE CLASS form1 as Form 
    ADD OBJECT combo as combobox WITH top=20,left=20,RowSourceType=3,;
        RowSource="SELECT 编码 FROM 编码表 ORDER BY 编码 INTO CURSOR 编码表_tmp"
    
    PROCEDURE Init
        =1
    ENDPROC
ENDDEFINE