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)
>> IF FILE(.select_file)
>> USE (.select_file)
>> AFIELDS( .my_fields, JUSTSTEM(.select_file) )
>> WITH .Combo1
>> .RowSourceType = 5
>> .RowSource = [ThisForm.my_fields]
>> .Value = ThisForm.my_fields[1]
>> .Requery()
>> .Interactivechange()
>> 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
>>