Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]recordgrid控件，怎样按内容自动调整行高？


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

主题：[求助]recordgrid控件，怎样按内容自动调整行高？
帅哥哟，离线，有人找我吗？
fengwenliuyan
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：901 积分：8247 威望：0 精华：0 注册：2012/10/19 13:55:00 		汗，您的版本太高，我无法打开啊！  发帖心情 Post By：2017/1/17 15:21:00 [只看该作者]

汗，您的版本太高，我无法打开啊！

 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

 

表A_AfterEdit

 

If Forms("窗口1").Opened Then

    Dim bctr = Forms("窗口1").Controls("RecordGrid1").BaseControl

    bctr.AutoSizeRows  

End If

 

表A_PositionChanged

 

If Forms("窗口1").Opened Then

    Dim bctr = Forms("窗口1").Controls("RecordGrid1").BaseControl

    bctr.AutoSizeRows  

End If
 回到顶部
帅哥哟，离线，有人找我吗？
fengwenliuyan
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：901 积分：8247 威望：0 精华：0 注册：2012/10/19 13:55:00 		[求助]  发帖心情 Post By：2017/1/17 19:06:00 [只看该作者]

试过，不行啊

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


加好友 发短信
等级：版主 帖子：1693 积分：12117 威望：0 精华：7 注册：2013/7/11 10:52:00 		  发帖心情 Post By：2017/1/17 19:30:00 [只看该作者]

上实例

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


加好友 发短信
等级：四尾狐 帖子：901 积分：8247 威望：0 精华：0 注册：2012/10/19 13:55:00 		  发帖心情 Post By：2017/1/17 20:11:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:意统一七版.foxdb
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106641 积分：542382 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/1/17 20:33:00 [只看该作者]

RecordGrid绑定的是客户信息表，你把代码放到其它表事件有啥用。

另外12楼的2个事件代码都要设置。放到客户信息表事件
[此贴子已经被作者于2017/5/27 18:02:26编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
fengwenliuyan
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：901 积分：8247 威望：0 精华：0 注册：2012/10/19 13:55:00 		已试验成功，谢谢，多谢，非常感谢！！！  发帖心情 Post By：2017/1/17 21:05:00 [只看该作者]

已试验成功，谢谢，多谢，非常感谢！！！

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


加好友 发短信
等级：童狐 帖子：216 积分：1888 威望：0 精华：0 注册：2015/5/27 1:15:00 		  发帖心情 Post By：2019/2/24 20:58:00 [只看该作者]

recordgrid ，想设成表格线为黑色，请问版主或哪位高手指点一二。

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/2/24 21:38:00 [只看该作者]

以下是引用dtcaoqian在2019/2/24 20:58:00的发言：
recordgrid ，想设成表格线为黑色，请问版主或哪位高手指点一二。

 

Dim rdg As WinForm.RecordGrid = e.Form.Controls("RecordGrid1")
Dim brdg = rdg.basecontrol
brdg.styles.Normal.Border.Color = Color.Red
brdg.styles.Normal.Border.Style = 1
brdg.styles.Normal.Border.width = 5
brdg.styles.Normal.Border.Direction = 2 '0-2
 回到顶部
总数 19 上一页 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.05469 秒, 5 次数据查询