>>cSqlInsert = "insert into Mytable (fld1, fld2, fld3) values (?MyTable.fld1, ?MyTable.fld2, ?MyTable.fld3)"
>>
>>>>cSqlInsert = "insert into " + ALLTRIM(DICT.TBL_NAME) + " " >>cSqlInsertValues = "" >> >>DO WHILE !EOF() AND DICT.TBL_NAME = cTableName >> >> cSqlInsert = cSqlInsert + IIF( EMPTY(cSqlInsertValues),"( ",", ") + ALLTRIM(DICT.FLD_NAME) >> >> cSqlInsertValues = cSqlInsertValues + IIF( EMPTY(cSqlInsertValues),"( ",", ") + "?" + ALLTRIM(DICT.TBL_NAME) + "." + ALLTRIM(DICT.FLD_NAME) >> >> SKIP IN DICT >> >>ENDDO >> >>cSqlInsert = cSqlInsert + ") VALUES " + cSqlInsertValues + ")" >>>>
>LOCAL lcAllFields > >USE ITEMTREELOG > >lnFields = AFIELDS(laFields) > >lcAllFields = '' > >FOR lnI = 1 TO lnFields > > lcAllFields = m.lcAllFields + IIF(EMPTY(m.lcAllFields),'',', ') + '?' + 'ItemTreeLog.' + laFields(m.lnI,1) >NEXT > >lcInsert = 'insert into ' + 'ITEMTREELOG (' + STRTRAN(m.lcAllFields, '?ItemTreeLog.','') + ') values (' + m.lcAllFields + ')' > >_cliptext = m.lcInsertThank you.