这样不知可否:自己保存选定列表的记录号。
如:
** test.prg
of = CREATEOBJECT("myForm")
of.show(1)
DEFINE CLASS myForm as Form
ADD OBJECT combo1 as combobox WITH top=10,left=10,columncount=2
ADD OBJECT cmd1 as commandbutton WITH top=10,left=150
nSelIndex = 0
PROCEDURE combo1.init
FOR i = 1 TO 10
this.AddItem("1_"+TRANSFORM(i))
this.List[this.NewIndex, 2] = "2_"+TRANSFORM(i)
ENDFOR
ENDPROC
PROCEDURE combo1.click
thisform.nSelIndex = this.ListIndex
ENDPROC
PROCEDURE cmd1.click
MESSAGEBOX((thisform.nSelIndex, 2))
ENDPROC
ENDDEFINE