html and program
[ttl]Grid[/ttl]
[form]
[grid MyGrid program="myprog;makegrid" size=auto/20 ]
[col Source=ItemCode$ ttl="ItemCode" width=30 ]
[col Source=ItemName$ ttl="Name" width=50]
[col Source=ItemType$ ttl="Type" width=5]
[/grid]
[/form]
! myprog (placed in the prog directory)
MAKEGRID:
enter MYGRID
open (hfn,iol=GRIDIOL)"*memory*"
let MYGRID=lfo
while 1
read data iol=GRIDIOL,end=*break
write (MYGRID)
wend
!
exit
!
data "item1","First Item","A"
data "item2","Second Item","B"
data "item3","Third Item","A"
data "item4","Last Item","C"
!
GRIDIOL:
iolist ITEMCODE$,ITEMNAME$,ITEMTYPE$
!
[ttl]Grid[/ttl]
[form]
[grid MyGrid program="myprog;makegrid" size=auto/20 ]
[col Source=ItemCode$ ttl="ItemCode" width=30 ]
[col Source=ItemName$ ttl="Name" width=50]
[col Source=ItemType$ ttl="Type" width=5]
[/grid]
[/form]
! myprog (placed in the prog directory)
MAKEGRID:
enter MYGRID
open (hfn,iol=GRIDIOL)"*memory*"
let MYGRID=lfo
while 1
read data iol=GRIDIOL,end=*break
write (MYGRID)
wend
!
exit
!
data "item1","First Item","A"
data "item2","Second Item","B"
data "item3","Third Item","A"
data "item4","Last Item","C"
!
GRIDIOL:
iolist ITEMCODE$,ITEMNAME$,ITEMTYPE$
!