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


  共有1496人关注过本帖树形打印复制链接

主题：[求助]记录窗口
帅哥哟，离线，有人找我吗？
苏州老街
 小大  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
Next

Dim bctr = e.Form.Controls("RecordGrid1").BaseControl
For Each r As object In bctr.Rows
    r.visible = True
Next
 回到顶部
帅哥哟，离线，有人找我吗？
苏州老街
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：636 积分：4062 威望：0 精华：0 注册：2016/10/19 16:45:00 		  发帖心情 Post By：2017/1/10 21:28:00 [显示全部帖子]

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


图片点击可在新窗口打开查看此主题相关图片如下：图像 1.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
苏州老街
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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)
    Next
Trv1.Nodes(0).Expand()
trv2.ExpandAll()



老师，上面代码报错。
 回到顶部
帅哥哟，离线，有人找我吗？
苏州老街
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：636 积分：4062 威望：0 精华：0 注册：2016/10/19 16:45:00 		  发帖心情 Post By：2017/1/11 8:40:00 [显示全部帖子]

老师好，打开窗口报错。

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:授权管理.rar
 回到顶部
帅哥哟，离线，有人找我吗？
苏州老街
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：636 积分：4062 威望：0 精华：0 注册：2016/10/19 16:45:00 		  发帖心情 Post By：2017/1/11 9:07:00 [显示全部帖子]

659385

 回到顶部
帅哥哟，离线，有人找我吗？
苏州老街
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：636 积分：4062 威望：0 精华：0 注册：2016/10/19 16:45:00 		  发帖心情 Post By：2017/1/11 9:23:00 [显示全部帖子]

老师，这是论坛上的例子，管理员帐号没有设置分组，应该在哪里设置。

 回到顶部
帅哥哟，离线，有人找我吗？
苏州老街
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：636 积分：4062 威望：0 精华：0 注册：2016/10/19 16:45:00 		  发帖心情 Post By：2017/1/11 9:42:00 [显示全部帖子]

老师，是这里面？


图片点击可在新窗口打开查看此主题相关图片如下：图像 1.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
苏州老街
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：636 积分：4062 威望：0 精华：0 注册：2016/10/19 16:45:00 		  发帖心情 Post By：2017/1/11 10:17: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
 回到顶部
帅哥哟，离线，有人找我吗？
苏州老街
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：636 积分：4062 威望：0 精华：0 注册：2016/10/19 16:45:00 		  发帖心情 Post By：2017/1/11 10:33:00 [显示全部帖子]

老师，我是要点击按钮显示空行再点击按钮隐藏空行。
 回到顶部
帅哥哟，离线，有人找我吗？
苏州老街
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：636 积分：4062 威望：0 精华：0 注册：2016/10/19 16:45:00 		  发帖心情 Post By：2017/1/11 11:12:00 [显示全部帖子]

老师，问题又来了。

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:生成目录树.rar


图片点击可在新窗口打开查看此主题相关图片如下：图像 2.png
图片点击可在新窗口打开查看
 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 7 次数据查询