Problem when creating list box in table control

Question

Hi every body ,
                  I am placing a list box in table control ,  the list box is coming perfectly but
when I am scrolling  or pressing enter the data in that field is clearing.
   if I remove the list box , and i enter the data directly and scrolling or press enter
the data is not clearing.
But only for list box only it is be having like that
what is the problem?
  the code is as follows
*{   INSERT         DEVK935807                                        1
*&      Module  glaccuontlist  INPUT
      text
module glaccuontlist input.
type-pools vrm.
tables: zglaccount.
data:
        name  type vrm_id,
        list  type vrm_values,
        value like line of list.
       clear:value.
       refresh: list.
        name = 'ACGL_ITEM-HKONT'.
        select * from zglaccount.
         value-key = sy-dbcnt.
         value-text = zglaccount-hkont.
         append value to list.
         clear value.
        endselect.
      call function 'VRM_SET_VALUES'
        exporting
          id                    = name
          values                = list
      EXCEPTIONS
        ID_ILLEGAL_NAME       = 1
        OTHERS                = 2
      if sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      endif.
endmodule.                 " glaccuontlist  INPUT
*}   INSERT
thanks in advance.\
srinivas.

Answer 1

Hi srinivasa,
try it.
select * from zglaccount.
<b>value-key = zglaccount-hkont.</b>
value-text = zglaccount-hkont.
append value to list.
clear value.
endselect.
Regards
Allan Cristian