Foxtable(狐表)用户栏目专家坐堂 → My God,Fox支持变量定义中文?是我火星了吗?


  共有5449人关注过本帖树形打印复制链接

主题:My God,Fox支持变量定义中文?是我火星了吗?

帅哥哟,离线,有人找我吗?
晕了快扶我
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1207 积分:7224 威望:0 精华:0 注册:2013/3/4 18:02:00
My God,Fox支持变量定义中文?是我火星了吗?  发帖心情 Post By:2013/10/26 23:05:00 [显示全部帖子]

Dim 角色名称 As String = args(0)
Dim 系统编号 As String = args(1)
Dim px As Boolean = args(2)
Dim dm As DataRow
Dim Arys() As String
Dim lv As String
Functions.Execute("角色权限","角色编号 = '" & 角色名称 & "'")
Select Case px
    Case True
        If 权限集合.Contains(系统编号) Then
        Else
            权限集合.Add(系统编号)
        End If
    Case False
        If 权限集合.Contains(系统编号) Then
            权限集合.Remove(系统编号)
        End If
End Select
Arys = 权限集合.ToArray()
lv = String.Join(",",Arys)
dm= DataTables("角色").Find("角色编号 = '" & 角色名称 & "'")
dm("系统编号") = lv

 

 

 

=========================

刚研究一位大大的权限设置代码,发现的,是我火星了吗?

[此贴子已经被作者于2013-10-26 23:06:08编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
晕了快扶我
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1207 积分:7224 威望:0 精华:0 注册:2013/3/4 18:02:00
  发帖心情 Post By:2013/10/26 23:12:00 [显示全部帖子]

命令窗口测试了下,果真可以,看来真的火星了...图片点击可在新窗口打开查看

 回到顶部