VIP会员
购物车
私信
发表新帖
立即签到
关注
回复
支持(
反对( 首页上一页 1 下一页尾页 3 条记录 1/1页
设置权限时发生问题
发表在VB答疑区
2009-04-24
是否精华
是
否
版块置顶:
是
否
明日的老师：
《Visual Basic 项目开发全程实录》
第一章 企业进销存管理系统 中，有以下程序
Mod1模块中定义
Public bQx(1 To 24) As Boolean '权限
------------------------------------------------------------------------
窗体frm_xtdl
Private Sub Picture1_Click()
Dim i As Integer
For i = 1 To 24
bQx(i) = Adodc1.Recordset.Fields(3 + i)
Next i
运行光盘中原程序正常。
但我在练习、调试时，编写和书中相同的程序，发现这一行，无论右边为"1" 或"0"，
左边的bQx(i)都为"False"。
不知道为什么，明日的老师能给予指点吗？难道这段程序是不能被复制和修改的？
《Visual Basic 项目开发全程实录》
第一章 企业进销存管理系统 中，有以下程序
Mod1模块中定义
Public bQx(1 To 24) As Boolean '权限
------------------------------------------------------------------------
窗体frm_xtdl
Private Sub Picture1_Click()
Dim i As Integer
For i = 1 To 24
bQx(i) = Adodc1.Recordset.Fields(3 + i)
Next i
运行光盘中原程序正常。
但我在练习、调试时，编写和书中相同的程序，发现这一行，无论右边为"1" 或"0"，
左边的bQx(i)都为"False"。
不知道为什么，明日的老师能给予指点吗？难道这段程序是不能被复制和修改的？
分享到：
