如何动态设置菜单?麻烦大哥们指点一二。
我想让我的程序有权限分配功能。
如：在数据库里建一个表：QXFP
表字段：ID '主键,自动编号
QX'权限,可在此权限所能打开的菜单名称，与程序菜单名称一致
登录程序，分配到权限，读取QX字段内的所有菜单名称，
现在是如何动态设置所读取的 菜单名称.Enabled = True
我主要是不知道代码怎么写，下面这个代码一定是错的，我只想让大家知道我的意思，还有让大家帮我改改。
Dim vCD As Variant
Rs.Open "select * from QXFP where username='" & txtUserName & "'", Conn, 1
If Not Rs.EOF Then
vCD = Split(Rs!QX, "|")
End If
Rs.Close
Dim I As Integer
For I = 0 To UBound(vCD)
vCD(I).Enabled = True
Next I
[解决办法]
我还是有些糊涂。。
