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

  //取下拉名称-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