关于逻辑列的代码。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于逻辑列的代码。

共有10870人关注过本帖树形打印复制链接主题：关于逻辑列的代码。

布莱克朱

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：623 积分：3897 威望：0 精华：0 注册：2011/8/3 22:13:00

关于逻辑列的代码。 发帖心情

Post By：2011/10/27 22:52:00 [只看该作者]

Dim T As String = e.form.Controls("ComboBox1").Value

dim dr as datarow =dataTables("授权表").Find("姓名 ='" & t & "'")

If dr IsNot Nothing then

Dim tr As WinForm.TreeView

Dim nd As WinForm.TreeNode

tr = e.Form.Controls("TreeView1")

nd=tr.Nodes.Add(dr("打开"),dr("打开"))

nd=tr.Nodes.Add(dr("修改"),dr("修改"))

nd=tr.Nodes.Add(dr("设置"),dr("设置"))

end if

这个代码有什么问题,可以跟着组合框名字显示节点,但是出来的目录树节点的标题为false,而不是打开,设置以及修改

另外我开启了复选框,还不能勾选.

是什么问题?怎么修改.

czy

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：6318 积分：33945 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2011/10/27 23:18:00 [只看该作者]

表中打开、修改、设置等列是逻辑型吧？

blackzhu

小大 3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐仙帖子：9875 积分：57590 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2011/10/28 7:51:00 [只看该作者]

对的,怎么改?

狐狸爸爸

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/10/28 8:02:00 [只看该作者]

IIF(dr("打开"),"开","关")

blackzhu

小大 5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐仙帖子：9875 积分：57590 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2011/10/28 8:13:00 [只看该作者]

什么意思?

blackzhu

小大 6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐仙帖子：9875 积分：57590 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2011/10/28 8:14:00 [只看该作者]

是目录树,这个不会修改!

狐狸爸爸

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/10/28 8:21:00 [只看该作者]

看来我没有明白你的问题。

具体一点吧。

[此贴子已经被作者于2011-10-28 8:21:31编辑过]

blackzhu

小大 8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐仙帖子：9875 积分：57590 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2011/10/28 8:29:00 [只看该作者]

上次yang版做的目录树权限,我想做一个不用过渡表的,但是做到在组合框下拉名字的时候,我用的是上面的那个代码,但是不行.我想应该是怎么改这个代码?

blackzhu

小大 9楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐仙帖子：9875 积分：57590 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2011/10/28 8:31:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:目录树权限.table

你帮我修改一下.

狐狸爸爸

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/10/28 8:44:00 [只看该作者]

关于不用过渡表的多级权限管理，以后我会在帮助提供一个例子。

你这个问题比较多，不太好改，只能大概：

Dim T As String = e.form.Controls("ComboBox1").Value
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim dr As DataRow =DataTables("授权表").Find("姓名 ='" & t & "'")
If dr IsNot Nothing Then
    trv.nodes("设置").checked = dr("设置")
    trv.nodes("修改").checked = dr("修改")
    trv.nodes("打开").checked = dr("打开")
End If

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目170.table

还有AfterChekcNode这样的事件，应该用e.Node，而不是SelectedNode，这样才严谨的。

[此贴子已经被作者于2011-10-28 8:45:21编辑过]

下一主题 >> << 上一主题

总数 15 1 2 下一页

主题：关于逻辑列的代码。