- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]记录窗口如何隐藏没有值的列 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=110546)
-- 发布时间：2017/12/5 10:49:00
-- [求助]记录窗口如何隐藏没有值的列
窗口中有一个表格，一个记录窗口，表格绑定的是表A，记录窗口绑定的是表A的关联表表A.表B
-- 发布时间：2017/12/5 11:25:00
--
有没有高手帮忙解决下
-- 发布时间：2017/12/5 11:27:00
--
现在是
此主题相关图片如下：11.gif
这个样子的
-- 发布时间：2017/12/5 11:28:00
--
执行这个代码可以隐藏
Dim bctr = e.Form.Controls("RecordGrid1").BaseControl
For Each r As object In bctr.Rows
If r(1).tostring = Nothing Then
r.visible = False
Else
r.visible = True
End If
Next
代码你可以放到表A的CurrentChanged事件去。
-- 发布时间：2017/12/5 11:46:00
--
执行这个代码可以隐藏
Dim bctr = e.Form.Controls("RecordGrid1").BaseControl
For Each r As object In bctr.Rows
If r(1).tostring = Nothing Then
r.visible = False
Else
r.visible = True
End If
Next
代码你可以放到表A的CurrentChanged事件去。
老师您好，按照您上面的代码写进去以后，每次点击表A的同一行，显示的情况都不太一样，这个应该如何解决呢？
-- 发布时间：2017/12/5 11:52:00
--
执行这个代码可以隐藏
Dim bctr = e.Form.Controls("RecordGrid1").BaseControl
For Each r As object In bctr.Rows
If r(1).tostring = Nothing Then
r.visible = False
Else
r.visible = True
End If
Next
代码你可以放到表A的CurrentChanged事件去。
而且还提示运行错误：未将对象引用设置到对象的实例
-- 发布时间：2017/12/5 12:00:00
--
例子发上来测试一下。
-- 发布时间：2017/12/5 12:40:00
--
例子发上来测试一下。
老师弱弱的问下，例子怎么发送呀？
-- 发布时间：2017/12/5 12:49:00
--
例子是这样的
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:标样.rar |
-- 发布时间：2017/12/5 13:11:00
--
老师你好，我把代码改到PositionChanged事件中，每次点击以后显示的都是正确的了，但是运行错误的问题还是存在，而且一开始进入窗口的时候显示还是有空行的