>mflist = "'" + '(SCN C(7),' >i = 1 >do while i <> 100 > i = i + 1 > if empty(idno) > skip > loop > endif > if i = 100 > mflist = mflist + 'F' + alltrim(idno) + ' c(1))' + "'" > else > mflist = mflist + 'F' + alltrim(idno) + ' c(1), ' > endif > skip >enddo >sele 0 >create table Table1 &mflist >>
>mflist = '(scn c(7), f200183 c(1), f9000091 c(1))' >Create table Table1 &mflist >> and it works just fine.
mflist = '(SCN C(7), ' i = 1 do while i <> 100 i = i + 1 *!* if empty(idno) *!* skip *!* loop *!* endif if i = 100 mflist = mflist + 'F' + CAST(i as varchar(10)) + ' c(1))' else mflist = mflist + 'F' + CAST(i as varchar(10)) + ' c(1), ' endif * skip enddo select 0 =MESSAGEBOX(mfList) lcComm = 'create cursor Table1 ' + mflist _cliptext = m.lcComm EXECSCRIPT(m.lcComm)