以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]记录窗口  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=96167)
--  作者：苏州老街
--  发布时间：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
--  作者：有点色
--  发布时间：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
--  作者：苏州老街
--  发布时间：2017/2/14 20:52:00
--  
老师，记录窗口的空单元格还是没有隐藏。
[此贴子已经被作者于2017/2/14 20:52:56编辑过]
--  作者：有点蓝
--  发布时间：2017/2/14 21:14:00
--  
每次切换行都要调用代码隐藏一次
--  作者：苏州老街
--  发布时间：2017/2/14 21:26:00
--  
老师，能每次换行记录窗口空格多隐藏吗？
--  作者：有点蓝
--  发布时间：2017/2/14 21:58:00
--  
到Currentchanged事件，每次换行调用代码隐藏
--  作者：苏州老街
--  发布时间：2017/2/14 22:09:00
--  
谢谢老师