Glad I could help. ;o)
>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
>>
_______________________________________________________________
Testing displays the presence, not the absence of bugs.
If a software application has to be designed, it has to be designed correctly!
_______________________________________________________________
Vladimir Zografski
Systems Analyst