Need code to Restructure Table Field Type from Form 1

[elevator]

I have field in a table that with a numeric format. I cannot change structure of this tables because it is part of an application.

I do have an answer table that I can restructure to change the structure. I have done it manually, but I need the code to change it via a form.

I need to change a numeric type to an alpha type with a size of 20.

 

[Langley]

Try modifying this example to work in your situation. Note that you cannot use an alias, you must use a hard path. I haven't had coffee yet so look for typos.

var

tbl         Table
tcFlds      TCursor
dynNewStru  DynArray[] Anytype

endvar

tbl.attach("c:\\myPrivDir\\answer.db")
tbl.enumFieldStruct("c:\\myPrivDir\\field_struct.db")
tcFlds.open("c:\\myPrivDir\\field_struct.db")
tcFlds.edit()

;// change to alpha

scan tcFlds :

if tcFlds."Field Name" = "My Field Name"
    then tcFlds."Type" = "ALPHA"
         tcFlds."Size" = 20         
endif

endscan


tcFlds.endEdit()
tcFlds.close()

dynNewStru["FIELDSTRUCT"] = "c:\\myPrivDir\\field_struct.db"
tbl.restructure( dynNewStru )

return

Hope this helps,

Mac

"Strange women lying in ponds and distributing swords is no basis for a system of government" - Dennis, age 37

mailto:langley_mckelvy@cd4.co.harris.tx.us