| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 判断语句 if --- then ---end if ? (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=43987) |
| -- 作者：jnletao -- 发布时间：2013/12/20 10:02:00 -- 判断语句 if --- then ---end if ? 我发现在foxtable有的示例 中没有then 如 if abcd = false message.Show("444") end if 这是为何，什么时候可以 忽略 then
|
| -- 作者：Bin -- 发布时间：2013/12/20 10:03:00 -- 什么时候都可以, 只不过不太严谨而已. |
| -- 作者：jnletao -- 发布时间：2013/12/20 10:03:00 -- 这是目录树授权里的一段代码 Dim trv1 As WinForm.TreeView = e.Form.Controls("TreeView1") Dim trv2 As WinForm.TreeView = e.Form.Controls("TreeView2") Dim dr As DataRow If e.node.Level = 0 Then dr = DataTables("授权").Find("分组 = \'" & e.Node.Name & "\' And 权限 Is Null") Else dr = DataTables("授权").Find("分组 = \'" & e.Node.ParentNode.Name & "\' And 权限 = \'" & e.Node.Name & "\'") End If Dim nms As New List(of String) If dr IsNot Nothing AndAlso dr.IsNull("用户") = False nms.AddRange(dr("用户").Split(",")) End If For Each nd As WinForm.TreeNode In trv2.AllNodes nd.Checked = nms.Contains(nd.Name) Next |
| -- 作者：jnletao -- 发布时间：2013/12/20 10:04:00 -- 噢，明白了，谢谢bin老师 |
| -- 作者：abcd1998 -- 发布时间：2013/12/20 11:32:00 -- 都是高手啊 |