- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [原创]怎么位操作 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=45339)
-- 发布时间：2014/1/22 15:28:00
-- [原创]怎么位操作
怎么使用位操作，把第一个表里的权限（000110110000100100000）一一赋值给表2的pression列，表3中的目录树是通过表2生成的，更改表3中复选框状态，则表2中premission列的值便会更改，0代表无此权限，1代表有此权限。
此主题相关图片如下：1.bmp
此主题相关图片如下：2.bmp
此主题相关图片如下：3.bmp
-- 发布时间：2014/1/22 15:29:00
--
利用FIND找到对应的行修改即可.
关键在于你依据什么作为关联查找
-- 发布时间：2014/1/22 15:34:00
--
我现在的问题是不知道怎么把图1中的000110110000100100000分别提取出来分别赋值到图2中的premission列，0,0,0,1。。。。。。
-- 发布时间：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
-- 发布时间：2014/1/22 15:43:00
--
顺序是对应的，谢谢，我试试。
-- 发布时间：2014/1/22 16:58:00
--
这是什么错误呢？怎么解决。
此主题相关图片如下：4.bmp
-- 发布时间：2014/1/22 17:01:00
--
rows(i) 不是rows("XXX")
-- 发布时间：2014/1/25 15:00:00
--
还是有错误
-- 发布时间：2014/1/25 15:01:00
--
此主题相关图片如下：3.bmp
-- 发布时间：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