| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- Like 代码不会写 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=65523) |
| -- 作者：lzzhx -- 发布时间：2015/3/17 17:44:00 -- Like 代码不会写 请教老师： 变量 yhfz 的值是字符串 ｜系统管理员｜ 下面代码得不到正确结果 If dr("有权限用户") Like yhfz Then nd.Checked = True endif 请老师给看看 |
| -- 作者：lzzhx -- 发布时间：2015/3/17 17:46:00 -- [有权限用户]字段内容：｜系统管理员｜管理员｜操作人员｜ |
| -- 作者：有点甜 -- 发布时间：2015/3/17 17:47:00 -- dr("有权限用户")的内容是什么？
If dr("有权限用户") Like "*yhfz*" Then nd.Checked = True
endif
[此贴子已经被作者于2015/3/17 17:46:53编辑过]
|
| -- 作者：lzzhx -- 发布时间：2015/3/17 17:55:00 -- dr("有权限用户")的内容：引用[有权限用户]字段内容
[有权限用户]字段内容：｜系统管理员｜管理员｜操作人员｜ |
| -- 作者：lzzhx -- 发布时间：2015/3/17 17:57:00 -- Dim tr4 As WinForm.TreeView = e.Form.Controls("TreeView4") tr4.StopRedraw \'停止绘制树 tr4.BuildTree("用户权限表","项目|权限") Dim yhfz As String = lst.SelectedValue yhfz = "|" & yhfz & "|" MessageBox.Show(yhfz) Dim nd As WinForm.TreeNode For Each dr As DataRow In DataTables("用户权限表").DataRows \'从用户权限数据表中提取数据 If dr("权限") = "" Then nd = tr4.Nodes(dr("项目")) Else nd = tr4.Nodes(dr("项目")).Nodes(dr("权限")) End If tr4.SelectedNode = nd If dr("有权限用户") Like "%yhfz%" Then nd.Checked = True Else nd.Checked = False End If Next Tr4.ExpandAll() tr4.ResumeRedraw \'恢复绘制树 |
| -- 作者：lzzhx -- 发布时间：2015/3/17 18:20:00 -- 找着问题了：是|和︱的问题，在键盘上输入的时候输错了 Dim tr4 As WinForm.TreeView = e.Form.Controls("TreeView4") tr4.StopRedraw \'停止绘制树 tr4.BuildTree("用户权限表","项目|权限") Dim yhfz As String = lst.SelectedValue yhfz = "*︱"& yhfz & "︱*" MessageBox.Show(yhfz) Dim nd As WinForm.TreeNode For Each dr As DataRow In DataTables("用户权限表").DataRows \'从用户权限数据表中提取数据 If dr("权限") = "" Then nd = tr4.Nodes(dr("项目")) Else nd = tr4.Nodes(dr("项目")).Nodes(dr("权限")) End If tr4.SelectedNode = nd If dr("有权限用户") Like yhfz Then nd.Checked = True Else nd.Checked = False End If Next Tr4.ExpandAll() tr4.ResumeRedraw \'恢复绘制树 |