hi,
yes , it works thank you very much.

>>hi,
>>thank you for reply and new code,
>>but still i see field (numaric type) at combo1
>>
>>
>
>Mohammed try this
>

>CREATE CURSOR MyLocalCursor (FieldName C(20),;
>                             FieldType C(1))
>SELECT 0
>WITH ThisForm
>  .text1.Value = GETFILE('dbf')
>  .select_file = .Text1.Value
>  IF FILE(.select_file) && This checks for the file to exist
>      USE (.select_file)
>      AFIELDS( .my_fields, JUSTSTEM(.select_file) )
>
>      SELECT myLocalCursor
>      APPEND FROM ARRAY .my_fields
>      SET FILTER TO FieldType = "C"
>      GO TOP
>
>      WITH .Combo1
>        .RowSourceType = 6
>        .RowSource = [MyLocalCursor.Fieldname]
>        .Value     = MyLocalCursor.Fieldname
>        .Requery() && Needed to reload the combo's list with the values in the array
>      ENDWITH
>       .text1.Visible  = .t.
>  ENDIF
>ENDWITH
>