引用问题
我要做一个控制菜单权限的功能,有一段代码如下,系统提示" & menuname & ".enabled = True这句错误,menuname代表菜单项的名称,请问如何才可行!
Dim cmd As SqlClient.SqlCommand
Dim dra As SqlClient.SqlDataReader
Dim strsql As String
Dim menuname As String
cmd = New SqlClient.SqlCommand()
cmd.Connection = New SqlClient.SqlConnection("data source=" & pub_server & ";initial catalog=" & pub_database & ";integrated security=SSPI")
strsql = "select menuname,running from menulist,userauthority where menulist.menucode=userauthority.programid and userid='" & pub_name & "'"
cmd.CommandText = strsql
cmd.Connection.Open()
dra = cmd.ExecuteReader
While dra.Read
menuname = Trim(dra(0))
If dra(1) = "T" Then
" & menuname & ".enabled = True
Else
" & menuname & ".enabled = false
End If
End While