专家坐堂-[求助]记录窗口Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]记录窗口  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=95115)

--  作者：苏州老街
--  发布时间：2017/1/10 16:30:00
--  [求助]记录窗口

老师，我想把下面两组代码合并摆在一个按钮中，同时打开窗口默认隐藏空行。

Dim bctr = e.Form.Controls("RecordGrid1").BaseControl
For Each r As object In bctr.Rows
If r(1) Is Nothing OrElse r(1) Is System.DBNull.Value Then r.visible = False
Next

Dim bctr = e.Form.Controls("RecordGrid1").BaseControl
For Each r As object In bctr.Rows
r.visible = True
Next

--  作者：有点色
--  发布时间：2017/1/10 16:38:00
--
Dim bctr = e.Form.Controls("RecordGrid1").BaseControl
For Each r As object In bctr.Rows
    If r(1) Is Nothing OrElse r(1) Is System.DBNull.Value Then
        r.visible = False
    Else
        r.visible = True
    End If
Next

--  作者：苏州老街
--  发布时间：2017/1/10 21:28:00
--

老师，没有主键列怎样加载。

此主题相关图片如下：图像 1.png

--  作者：有点蓝
--  发布时间：2017/1/10 21:36:00
--
必须设置一个主键，否则只能作为查询表添加

--  作者：苏州老街
--  发布时间：2017/1/10 22:08:00
--

此主题相关图片如下：图像 2.png

Dim trv1 As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim trv2 As WinForm.TreeView = e.Form.Controls("TreeView2")
trv1.BuildTree("目录树授权","分类|角色")
For Each u As UserInfo In Users
If trv2.Nodes.Contains(u.Group) = False Then
trv2.Nodes.Add(u.Group)
End If
trv2.Nodes(u.Group).Nodes.Add(u.Name)
Next
Trv1.Nodes(0).Expand()
trv2.ExpandAll()

老师，上面代码报错。

--  作者：有点蓝
--  发布时间：2017/1/10 22:31:00
--
这段代码看不出问题，上传例子看看

--  作者：苏州老街
--  发布时间：2017/1/11 8:40:00
--

老师好，打开窗口报错。

下载信息  [文件大小：   下载次数： ]
点击浏览该文件:授权管理.rar

--  作者：有点蓝
--  发布时间：2017/1/11 8:58:00
--
开发者密码？

--  作者：苏州老街
--  发布时间：2017/1/11 9:07:00
--
659385

--  作者：有点蓝
--  发布时间：2017/1/11 9:12:00
--
管理员帐号没有设置分组，不然就请按照帮助的用法使用

http://www.foxtable.com/webhelp/scr/2405.htm

Dim trv1 As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim trv2 As WinForm.TreeView = e.Form.Controls("TreeView2")
trv1.BuildTree("授权","分组|权限")
For Each u As UserInfo In Users
    If u.Type = UserTypeEnum.User Then
        If trv2.Nodes.Contains(u.Group) = False Then
            trv2.Nodes.Add(u.Group)
        End If
        trv2.Nodes(u.Group).Nodes.Add(u.Name)
    End If
Next
Trv1.Nodes(0).Expand()
trv2.ExpandAll()