Example

 

// first 5 Records from items

// ...........................

string ls_var

declare dtw=ue_datastorevalues

dtw=add=select top 5 "ItemCode","ItemName" from "OITM" order by "ItemCode"

for=loop=1=<dtw.rowcount>

 dtw=setrow=<loop>

 ls_var=<ls_var><cr_lf><dtw.itemcode>

next

destroy=dtw

messagebox=<ls_var>

 

 

 

 

// Import Textfile

destroy=dtw

declare=dtw=ue_datastorevalues

dtw=addfield=itemcode=c=20

dtw=addfield=itemname=c=100

dtw=addfield=price=n=20

dtw=createbyfield

// import from second line

dtw=importtextfile=c:\temp\test.txt=2

if <value> n< 0 then

  messagebox=error$error import file! errorcode <value>

  destroy dtw

  return failure

end if

messagebox=test: <dtw.itemcode>

destroy=dtw