hi all,
i need help to get fields(characters type only) at combo1
via this code under

thisform.text1.Value=GETFILE('dbf')
m.t=(thisform.text1.value)
ThisForm.select_file=(M.T)
IF NOT EMPTY(ThisForm.select_file)
   USE (m.t)
    AFIELDS(ThisForm.my_fields,JUSTSTEM(ThisForm.select_file))
      ThisForm.combo1.RowSourceType = 5
   ThisForm.combo1.RowSource = [ThisForm.my_fields]
   ThisForm.combo1.Value     = ThisForm.my_fields[1]
   ThisForm.Combo1.Interactivechange()
     ThisForm.text1.value = (ThisForm.select_file)
    ThisForm.text1.Visible  = .t.
ENDIF

thanks.