Foxtable(狐表)用户栏目专家坐堂 → [原创]怎么位操作


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

主题:[原创]怎么位操作

美女呀,离线,留言给我吧!
tina2012
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:286 积分:2462 威望:0 精华:0 注册:2013/9/23 16:09:00
[原创]怎么位操作  发帖心情 Post By:2014/1/22 15:28:00 [只看该作者]

怎么使用位操作,把第一个表里的权限(000110110000100100000)一一赋值给表2的pression列,表3中的目录树是通过表2生成的,更改表3中复选框状态,则表2中premission列的值便会更改,0代表无此权限,1代表有此权限。
图片点击可在新窗口打开查看此主题相关图片如下:1.bmp
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:2.bmp
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:3.bmp
图片点击可在新窗口打开查看

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/1/22 15:29:00 [只看该作者]

利用FIND找到对应的行修改即可.

关键在于你依据什么作为关联查找


 回到顶部
美女呀,离线,留言给我吧!
tina2012
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:286 积分:2462 威望:0 精华:0 注册:2013/9/23 16:09:00
  发帖心情 Post By:2014/1/22 15:34:00 [只看该作者]

我现在的问题是不知道怎么把图1中的000110110000100100000分别提取出来分别赋值到图2中的premission列,0,0,0,1。。。。。。

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/1/22 15:41:00 [只看该作者]

顺序和你目前的顺序是对应的吗? 如果是

Dim s As String =Tables("表A").current("premissionValue")
For i As Integer=0 To s.length-1
    tables("XX").rows(i)=s(i)
Next

 回到顶部
美女呀,离线,留言给我吧!
tina2012
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:286 积分:2462 威望:0 精华:0 注册:2013/9/23 16:09:00
  发帖心情 Post By:2014/1/22 15:43:00 [只看该作者]

顺序是对应的,谢谢,我试试。

 回到顶部
美女呀,离线,留言给我吧!
tina2012
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:286 积分:2462 威望:0 精华:0 注册:2013/9/23 16:09:00
  发帖心情 Post By:2014/1/22 16:58:00 [只看该作者]

这是什么错误呢?怎么解决。
图片点击可在新窗口打开查看此主题相关图片如下:4.bmp
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/1/22 17:01:00 [只看该作者]

rows(i) 不是rows("XXX")

 回到顶部
美女呀,离线,留言给我吧!
tina2012
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:286 积分:2462 威望:0 精华:0 注册:2013/9/23 16:09:00
  发帖心情 Post By:2014/1/25 15:00:00 [只看该作者]

还是有错误

 回到顶部
美女呀,离线,留言给我吧!
tina2012
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:286 积分:2462 威望:0 精华:0 注册:2013/9/23 16:09:00
  发帖心情 Post By:2014/1/25 15:01:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:3.bmp
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/1/25 20:24:00 [只看该作者]

Dim s As String =Tables("表A").current("premissionValue")
For i As Integer=0 To s.length-1
    tables("System_Permission").rows(i)("Permission") = s(i)
Next

 回到顶部