引用错误
m.uid=ALLT(THISFORM.lstuid.VALUE)SELE adminer
LOCATE FOR ALLT(username)==m.uid &&注意需要使用精确比较
m.pwd=adminer.userpower
DIME m.dom(15)
m.dom=0
******进行二进制的转换********
i=15
DO WHILE m.pwd>0
IF m.pwd>=2
Y=m.pwd%2
ELSE
Y=m.pwd
ENDIF
m.dom(i)=Y 就是这一行引用错误
m.pwd=(m.pwd-Y)/2
i=i-1
ENDDO
*****分配各部分权限的值******
*****资料管理********
WITH THISFORM.pageframe1.page1
.check1.VALUE=m.dom(1)
.check2.VALUE=m.dom(2)
.check3.VALUE=m.dom(3)
.check4.VALUE=m.dom(4)
.check5.VALUE=m.dom(5)
.check6.VALUE=m.dom(6)
.check7.VALUE=m.dom(7)
.check8.VALUE=m.dom(8)
.check9.VALUE=m.dom(9)
.check10.VALUE=m.dom(10)
.check11.VALUE=m.dom(11)
.check12.VALUE=m.dom(12)
ENDWITH
*****报表管理********
WITH THISFORM.pageframe1.page2
.check1.VALUE=m.dom(13)
.check2.VALUE=m.dom(14)
.check3.VALUE=m.dom(15)
ENDWITH
[ 本帖最后由 顾闻 于 2011-4-14 22:34 编辑 ]
