>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