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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]记录窗口

共有1462人关注过本帖树形打印复制链接主题：[求助]记录窗口

苏州老街

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

加好友

发短信

等级：三尾狐帖子：636 积分：4062 威望：0 精华：0 注册：2016/10/19 16:45:00

[求助]记录窗口 发帖心情

Post By：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

Dim bctr = e.Form.Controls("RecordGrid1").BaseControl

For Each r As object In bctr.Rows

r.visible = True

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：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

苏州老街

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

加好友

发短信

等级：三尾狐帖子：636 积分：4062 威望：0 精华：0 注册：2016/10/19 16:45:00

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

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

图片点击可在新窗口打开查看此主题相关图片如下：图像 1.png

有点蓝

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

加好友

发短信

等级：超级版主帖子：106603 积分：542186 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/1/10 21:36:00 [只看该作者]

必须设置一个主键，否则只能作为查询表添加

苏州老街

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

加好友

发短信

等级：三尾狐帖子：636 积分：4062 威望：0 精华：0 注册：2016/10/19 16:45:00

Post By：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)

Trv1.Nodes(0).Expand()

trv2.ExpandAll()

老师，上面代码报错。

有点蓝

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

加好友

发短信

等级：超级版主帖子：106603 积分：542186 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/1/10 22:31:00 [只看该作者]

这段代码看不出问题，上传例子看看

苏州老街

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

加好友

发短信

等级：三尾狐帖子：636 积分：4062 威望：0 精华：0 注册：2016/10/19 16:45:00

Post By：2017/1/11 8:40:00 [只看该作者]

老师好，打开窗口报错。

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

有点蓝

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

加好友

发短信

等级：超级版主帖子：106603 积分：542186 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/1/11 8:58:00 [只看该作者]

开发者密码？

苏州老街

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

加好友

发短信

等级：三尾狐帖子：636 积分：4062 威望：0 精华：0 注册：2016/10/19 16:45:00

Post By：2017/1/11 9:07:00 [只看该作者]

659385

有点蓝

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

加好友

发短信

等级：超级版主帖子：106603 积分：542186 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：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()

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

总数 21 1 2 3 下一页

主题：[求助]记录窗口