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)
> 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()
> ENDWITH
> .text1.Visible = .t.
> ENDIF
>ENDWITH
>