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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]隐藏&显示记录窗口标题及行缩进等

共有2154人关注过本帖树形打印复制链接主题：[求助]隐藏&显示记录窗口标题及行缩进等

jyh7081

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

加好友

发短信

等级：四尾狐帖子：962 积分：8505 威望：0 精华：0 注册：2012/10/3 13:25:00

[求助]隐藏&显示记录窗口标题及行缩进等 发帖心情

Post By：2016/11/15 20:14:00 [显示全部帖子]

想改进一下记录窗口，达到如下效果：

1、显示&隐藏记录窗口标题列；

2、右缩进（或还原）行首2个字符（仅在记录窗口显示或还原缩进，主表始终不缩进）；

3、显示&隐藏记录窗口内的空单元格。

请老师指教！谢谢！

此主题相关图片如下：image 1.jpg

附件：

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.table

jyh7081

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

加好友

发短信

等级：四尾狐帖子：962 积分：8505 威望：0 精华：0 注册：2012/10/3 13:25:00

Post By：2016/11/15 21:50:00 [显示全部帖子]

谢谢版主！

还有一点小问题，就是同一个单元格内的第二个换行符处没有缩进，如图：

此主题相关图片如下：image 5.jpg

jyh7081

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

加好友

发短信

等级：四尾狐帖子：962 积分：8505 威望：0 精华：0 注册：2012/10/3 13:25:00

Post By：2016/11/16 13:28:00 [显示全部帖子]

請版主帮忙改一下下面两段代码，只会写到这个程度了，谢谢!

1、隐藏记录窗口空行（按钮用）：

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

Dim cn As String

For Each c As row In e.Form.Controls("RecordGrid1").rows

If c = Nothing Then

bctr.Rows(c.Index).visible = False '隐藏行

End If

2、记录窗口单元格右缩进：

Dim Multi As String = e.Table.Current

Dim Values As String()

Values = Multi.Split(vbcrlf)

If e.Row.Index = e.Table.RowSel Then

e.Text = " " & e.Row(e.Col.Name)

End If

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

主题：[求助]隐藏&显示记录窗口标题及行缩进等