Пример создания таблицы "field_struct.db" с полями из массива:

var
tbl Table
tcFlds TCursor
NewStru Array[] String
pole, tempTbl, newTbl String
pozPole smallInt
endVar

NewStru.setSize(4)
NewStru[1]="Фамилия:A50"
NewStru[2]="Имя:A30"
NewStru[3]="Отчество:A40"
NewStru[4]="Количество:S"
newTbl="test_create_db.db"

tempTbl="field_struct.db"
tbl = create tempTbl
WITH
"Field Name":"A31",
"Type":"A31",
"Size":"S",
"Dec":"S",
"Key":"A1",
"_Required Value":"A1",
"_Min Value":"A255",
"_Max Value":"A255",
"_Default Value":"A255",
"_Picture Value":"A175",
"_Table Lookup":"A255",
"_Table Lookup Type":"A1",
"_Invariant Field ID":"S"
languageDriver "ANCYRR"
endCreate
tcFlds.open(tempTbl)
tcFlds.edit()
for i from 1 to NewStru.size()
tcFlds.insertAfterRecord()
pole=NewStru
pozPole=pole.search(":")
tcFlds."Field Name" =pole.substr(1,pozPole-1)
tcFlds."Type" = pole.substr(pozPole+1)
if pole.size()>pozPole+1 then tcFlds."Size" = pole.substr(pozPole+2,pole.size()-pozPole-1) endIf
endFor
tcFlds.endEdit()
tbl = create newTbl
STRUCT tcFlds
languageDriver "ANCYRR"
endCreate
tcFlds.close()
delete(tempTbl)

Повторяю еще раз, т.к. пропало
----

var
tbl Table
tcFlds TCursor
NewStru Array[] String
pole, tempTbl, newTbl String
pozPole smallInt
endVar

NewStru.setSize(4)
NewStru[1]="Фамилия:A50"
NewStru[2]="Имя:A30"
NewStru[3]="Отчество:A40"
NewStru[4]="Количество:S"
newTbl="test_create_db.db"

tempTbl="field_struct.db"
tbl = create tempTbl
WITH
"Field Name":"A31",
"Type":"A31",
"Size":"S",
"Dec":"S",
"Key":"A1",
"_Required Value":"A1",
"_Min Value":"A255",
"_Max Value":"A255",
"_Default Value":"A255",
"_Picture Value":"A175",
"_Table Lookup":"A255",
"_Table Lookup Type":"A1",
"_Invariant Field ID":"S"
languageDriver "ANCYRR"
endCreate
tcFlds.open(tempTbl)
tcFlds.edit()
for i from 1 to NewStru.size()
tcFlds.insertAfterRecord()
pole=NewStru
pozPole=pole.search(":")
tcFlds."Field Name" =pole.substr(1,pozPole-1)
tcFlds."Type" = pole.substr(pozPole+1)
if pole.size()>pozPole+1 then tcFlds."Size" = pole.substr(pozPole+2,pole.size()-pozPole-1) endIf
endFor
tcFlds.endEdit()
tbl = create newTbl
STRUCT tcFlds
languageDriver "ANCYRR"
endCreate
tcFlds.close()
delete(tempTbl)

Еще разок, пропадает понимаешь [ i ], без пробелов... форум эти три знака "скушивает"
----

var
tbl Table
tcFlds TCursor
NewStru Array[] String
pole, tempTbl, newTbl String
i, pozPole smallInt
endVar

NewStru.setSize(4)
NewStru[1]="Фамилия:A50"
NewStru[2]="Имя:A30"
NewStru[3]="Отчество:A40"
NewStru[4]="Количество:S"
newTbl="test_create_db.db"

tempTbl="field_struct.db"
tbl = create tempTbl
WITH
"Field Name":"A31",
"Type":"A31",
"Size":"S",
"Dec":"S",
"Key":"A1",
"_Required Value":"A1",
"_Min Value":"A255",
"_Max Value":"A255",
"_Default Value":"A255",
"_Picture Value":"A175",
"_Table Lookup":"A255",
"_Table Lookup Type":"A1",
"_Invariant Field ID":"S"
languageDriver "ANCYRR"
endCreate
tcFlds.open(tempTbl)
tcFlds.edit()
for i from 1 to NewStru.size()
tcFlds.insertAfterRecord()
pole=NewStru[ i ]
pozPole=pole.search(":")
tcFlds."Field Name" =pole.substr(1,pozPole-1)
tcFlds."Type" = pole.substr(pozPole+1)
if pole.size()>pozPole+1 then tcFlds."Size" = pole.substr(pozPole+2,pole.size()-pozPole-1) endIf
endFor
tcFlds.endEdit()
tbl = create newTbl
STRUCT tcFlds
languageDriver "ANCYRR"
endCreate
tcFlds.close()
delete(tempTbl)