How to create #N Field is OK by skill ?

That's hardly surprising - don't know why you thought you could use %d in a variable name? It's a string formatting code in the various printf functions - you can't just use it arbitrarily elsewhere.

You could do this (although I doubt it's the right way to do it in practice):

set(concat('MyField i) hiCreateStringField(...))

However, then presumably you're going to have to access this variable with a created name - which you could do with symeval(concat('MyField i)) but all you're doing here is effectively creating a poor implementation of an array. So why not either put all these fields in a list:

for(i 0 10
  newField=hiCreateStringField(...)
  listOfFields=cons(newFields listOfFields)
)

If the order matters, you could reverse the list at the end, or use tconc to construct it in the right order in the first place.

Or you could use an array:

declare(MyFields[11])
for(i 0 10
  MyFields[i]=hiCreateStringField(...)
)

Regards,

Andrew.

Andrew,

Thank you for help.

Charley

Hi Charley

I have met the similar situation, and it might be more complicated than yours.

As those field are dynamic, which means they can be added and removed when changing some other value in the form.

Besides, I need to access the value and also assign the call back function for those dynamic field.

here I just put part of my code to show how I did it:

Best Regards

####### relevant code for create dynamic fields in the form #########

procedure(createForm()

let(

()

......

   ;create given number for group of fields

    for(Index 1 fNumGroup->value
        fGroupList = cons(createNewGroupMember(Index) fGroupList)  
    );for

......

     ;adding the dynamic fields into the form

     foreach(group reverse(fGroupList)        
        fieldList2D  = cons(list(nth(0 group) x_co:y_co     580:210  220) fieldList2D)
        y_co = y_co + 10
        fieldList2D  = cons(list(nth(1 group) x_co+10:y_co  460:25   120) fieldList2D)
        y_co = y_co + 30
        fieldList2D  = cons(list(nth(2 group) x_co+10:y_co  100:25   1) fieldList2D) 
    );foreach(group)

   ......

   hiCreateAppForm(
        ?name 'testForm
        ?formTitle "Test  Form"        
        ?fields fieldList2D
        ?initialSize (1000:1200)
        ;?dialogStyle 'modal
        ?buttonLayout 'OKCancelDef        
        );hiCreateAppForm

);let

);proc(createForm()

procedure(createNewGroupMember(Index)
let(
(
    newGroup                    ;list of added group, which contains several fields
);local variable
    newGroup =list( hiCreateFrameField(
                        ?name stringToSymbol(strcat("fFrame_" sprintf(nil "%d" Index)))
                        ?labelText strcat("Group" sprintf(nil "%d" Index))    
                        ?enabled t
                        ?invisible nil
                    );createFrame

                    hiCreateRadioField(
                        ?name stringToSymbol(strcat("fRadio_" sprintf(nil "%d" Index)))                                    
                        ?prompt "Key Word Type"
                        ?choices list("choice1" "choice2" "choice3")
                        ?value "choice1"
                        ?defValue "choice1"
                        ?callback list(strcat("printSelPins(testForm" sprintf(nil "%d" Index) ")"))
                        ?enabled t
                        ?invisible nil
                    );createRadioField

                    hiCreateStringField(
                        ?name stringToSymbol(strcat("fString_" sprintf(nil "%d" Index)))
                        ?prompt "Key Words"
                        ?value ""
                        ?callback strcat("printSelPins(testForm" sprintf(nil "%d" Index) ")")
                        ?enabled t
                        ?invisible nil
                    );createStringField                   
                );list
                
    newGroup            
);let
);proc

procedure(SprintSelPins(form Index)
let(
( 
  
    UDKeyWords          ;list of user defined key words     
 
);local variable

   
  ..............  

    ;get the value from the dynamic field
    UDKeyWords = parseString(get(form stringToSymbol(strcat("fString_" sprintf(nil "%d" Index))))->value)
   

    ............

);let
);prog