hi,
thank you for help and code,

Mr.Vladimir send (what i need exactly),

thanks again.

>What is the value of ThisForm.My_fields(1)?
>
>Are you aware that AFIELDS() creates a two dimensional array? Perhaps you need to use ThisForm.my_fields(1,1).
>
>What is the value of the ControlSource property for the combobox?
>
>What is the value of ThisForm.Combo1.Value after the code runs?
>
>What is the BoundColumn property setting for the combobox?
>
>>hi,
>>thank you for reply and new code,
>>but still i see field (numaric type) at combo1
>>
>>
>>>How about something like this;
>>>
>>>

>>>WITH ThisForm
>>>  .text1.Value = GETFILE('dbf')
>>>  .select_file = .Text1.Value
>>>*  IF NOT EMPTY(.select_file) && This line does not guarantee that the file exists
>>>  IF FILE(.select_file) && This checks for the file to exist
>>>      USE (.select_file)
>>>      AFIELDS( .my_fields, JUSTSTEM(.select_file) )
>>>      WITH .Combo1
>>>        .RowSourceType = 5
>>>        .RowSource = [ThisForm.my_fields]
>>>        .Value     = ThisForm.my_fields[1]
>>>        .Requery() && Needed to reload the combo's list with the values in the array
>>>        .Interactivechange() && Don't know why this line is in your code
>>>      ENDWITH
>>>* Th next line is redundant as this value is already set in this control
>>>*      .text1.value = (ThisForm.select_file)
>>>       .text1.Visible  = .t.
>>>  ENDIF
>>>ENDWITH
>>>