Hi Ben,
>Public cNaam, dGeboren, nID, cMask
>
>local x, nDiensten, cMask
>
>close tables all
>
>set procedure to O:\developer\LIB\DSP
>nDiensten = 0
>cMask = ""
>nID = 1
>cNaam = ""
>dGeboren = date()
>
>use perioden
>do while !eof()
> nDiensten = nDiensten + 1
> dbskip("perioden",1)
>enddo
>
>for x = 1 to nDiensten
> cMask = cMask+"x"
>endfor
>
>thisform.cMaan.inputmask = cMask
>thisform.cDins.inputmask = cMask
>thisform.cWoens.inputmask = cMask
>thisform.cDonder.inputmask = cMask
>thisform.cVrij.inputmask = cMask
>thisform.cZater.inputmask = cMask
>thisform.cZon.inputmask = cMask
>
>use user
>dbgobottom("user")
>nId = user.userid +1
What do these:
thisform.cMaan
thisform.cDins
thisform.cWoens
thisform.cDonder
thisform.cVrij
thisform.cZater
thisform.cZon
have in their ControlSource?
BTW,
>for x = 1 to nDiensten
> cMask = cMask+"x"
>endfor
would be faster as
cMask = replicate("x", nDiensten)
as you could skip the loop.
Bill Armbrecht
VFP MCP