如何取得下拉列表中的显示名称

//取下拉名称-begin
//-
ls_next=dw_1.Describe('bghnr_lb.values')
li_pos= Pos(ls_next,'/')
forli_i=integer(mid(ls_next,li_pos - 1,1)) to integer(ls_temp)
li_pos= Posw(ls_next,'/')
ifli_pos < 1 then EXIT
ls_now=leftw(ls_next,li_pos- 1)
ls_next=Rightw(ls_next,lenw(ls_next) -li_pos)
next
//
ls_bgnew=leftw(ls_now,lenw(ls_now)-1)
ifPos(ls_bgnew,'~t') > 0 then ls_bgnew =Left(ls_bgnew,Pos(ls_bgnew,'~t') - 1)
//取下拉名称-end