lcTable = DataDict.TableName select DataDict scan while TableName = m.lcTable lcFields = lcFields + IIF(empty(m.lcFields,'') + ', ' + CRLF + alltrim(FieldName) lcValues = lcValues + IIF(empty(m.lcValues,'') + ', ' + CRLF + '?' + m.lcTable + '. ' + alltrim(FieldName) endscan text to lcPRG additive textmerge noshow text to lcInsert noshow INSERT INTO <<m.lcTable>> ( <<m.lcFields>> ) VALUES ( <<m.lcValues>> ) endtext SCAN <<m.lcTable>> sqlexec(hCon, m.lcInser) ENDSCAN endtext lcTable = DataDict.tableName endscan