Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共5 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:帮我看看这段代码有没有问题,没有反应!

1楼
布莱克朱 发表于:2011/8/23 23:11:00

   Dim UserIsRole As String = e.Form.Controls("UserIsRole").Value

   Dim cmd As New SQLCommand
    Dim dt As DataTable
     cmd.C
    cmd.CommandText = "SELECT * From {权限管理}"
    dt = cmd.ExecuteReader()
    If dt.DataRows.Count > 0 Then
        For Each dr As DataRow In dt.Select("用户名='"& _UserName & "'And 角色 ='"  & UserIsRole "'")
                If dr.IsNull("列名") Then
                Tables(dr("表名")).Visible = Not dr("不可见")
                Tables(dr("表名")).AllowEdit = Not dr("不可编辑")
            Else
                Tables(dr("表名")).Cols(dr("列名")).Visible = Not dr("不可见")
                Tables(dr("表名")).Cols(dr("列名")).AllowEdit = Not dr("不可编辑")
            End If
       ' Next
    End If

2楼
czy 发表于:2011/8/23 23:43:00

除& UserIsRole 后要加&符号外,没看出有什么问题。

说说怎么没反映?

3楼
blackzhu 发表于:2011/8/24 7:32:00
&那个原先有的,上来的时候手误了.就是我设定了一个列不可编辑,但是登陆后没有锁定.
4楼
blackzhu 发表于:2011/8/24 8:08:00
神经今日上班稍微弄弄,又好了.
5楼
czy 发表于:2011/8/24 8:19:00
图片点击可在新窗口打开查看
共5 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .02344 s, 2 queries.