Not quite clear, how do you "try to add new property at myform as my_fields(1,0)".
Anyway, it should be similar to this:
use (your_table)
this.AddProperty("my_fields(1)",.f.)
this.addproperty("select_file", ALIAS())
=AFIELDS(ThisForm.my_fields,JUSTSTEM(ThisForm.select_file))
>hi all,
>
>i try to copy all buttons,text, methods and property to new form
>
>i get error messag
>"my_fields" is not an array
>at this code
>
>i try to add new property at myform as my_fields(1,0),
>but i add new property only as my_fields.
>
>
>IF NOT EMPTY(ThisForm.select_file)
> USE (ThisForm.select_file)
> AFIELDS(ThisForm.my_fields,JUSTSTEM(ThisForm.select_file))
> ThisForm.combo1.RowSourceType = 5
> ThisForm.combo1.RowSource = [ThisForm.my_fields]
> ThisForm.combo1.Value = ThisForm.my_fields[1]
> ThisForm.Combo1.Interactivechange()
> ThisForm.text3.value = JUSTSTEM(ThisForm.select_file)
>ENDIF
>
>thanks,