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


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

主题:[求助]记录窗口

帅哥哟,离线,有人找我吗?
苏州老街
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:660 积分:4236 威望:0 精华:0 注册:2016/10/19 16:45:00
[求助]记录窗口  发帖心情 Post By:2017/2/14 17:34:00 [只看该作者]

老师好,下面三组代码怎样合并。


Dim rdg = e.Form.Controls("RecordGrid1").BaseControl
rdg.cols(0).TextAlign  = 7  '对齐
rdg.cols(0).style.BackColor = color.Red  '背景 红色


Dim rgd As WinForm.RecordGrid = e.Form.Controls("RecordGrid1")
rgd.Table = Tables("收支表_Table1") '指定绑定表
rgd.Build() '重新生成

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


 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/2/14 18:21:00 [只看该作者]

很基础的问题啊

 

Dim rgd As WinForm.RecordGrid = e.Form.Controls("RecordGrid1")
rgd.Table = Tables("收支表_Table1") '指定绑定表
rgd.Build() '重新生成

Dim brgd = e.Form.Controls("RecordGrid1").BaseControl
brgd.cols(0).TextAlign  = 7  '对齐
brgd.cols(0).style.BackColor = color.Red  '背景 红色

For Each r As object In brgd.Rows
    If r(1) Is Nothing OrElse r(1) Is System.DBNull.Value Then r.visible = False
Next


 回到顶部
帅哥哟,离线,有人找我吗?
苏州老街
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:660 积分:4236 威望:0 精华:0 注册:2016/10/19 16:45:00
  发帖心情 Post By:2017/2/14 20:52:00 [只看该作者]

老师,记录窗口的空单元格还是没有隐藏。
[此贴子已经被作者于2017/2/14 20:52:56编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110818 积分:564034 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/2/14 21:14:00 [只看该作者]

每次切换行都要调用代码隐藏一次


 回到顶部
帅哥哟,离线,有人找我吗?
苏州老街
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:660 积分:4236 威望:0 精华:0 注册:2016/10/19 16:45:00
  发帖心情 Post By:2017/2/14 21:26:00 [只看该作者]

老师,能每次换行记录窗口空格多隐藏吗?

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110818 积分:564034 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/2/14 21:58:00 [只看该作者]

到Currentchanged事件,每次换行调用代码隐藏

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


加好友 发短信
等级:三尾狐 帖子:660 积分:4236 威望:0 精华:0 注册:2016/10/19 16:45:00
  发帖心情 Post By:2017/2/14 22:09:00 [只看该作者]

谢谢老师

 回到顶部