Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何设置窗口中Table的边框?


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

主题：如何设置窗口中Table的边框?
帅哥哟，离线，有人找我吗？
flashv
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：577 积分：4596 威望：0 精华：0 注册：2013/3/3 1:52:00 		如何设置窗口中Table的边框?  发帖心情 Post By：2013/4/5 11:39:00 [只看该作者]

 如何设置窗口中Table的边框?


 


图片点击可在新窗口打开查看此主题相关图片如下：2013-4-5 11-33-55.png
图片点击可在新窗口打开查看

 

 
图片点击可在新窗口打开查看此主题相关图片如下：44.png
图片点击可在新窗口打开查看

 

这样很难看.

 

因为据跟据需要有增减的.所以无论如何设置都不会.

宽度设正好吧,出现滚动条后就不行.

高度设高了吧,就出现边线.

 

有没有办法控制窗口中Table控件的样式?最主要就是边框.

[此贴子已经被作者于2013-4-5 11:39:47编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
FoxMan
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：302 积分：1860 威望：0 精华：0 注册：2012/4/27 11:34:00 		  发帖心情 Post By：2013/4/5 12:28:00 [只看该作者]

大概这样(另空白区背景色设为白色会好点):

Dim n1,n2,n3 as Integer 
Dim t1 as Table = Tables("X")
n1 = 138     '窗口中Table控件高度
n2 = 23       'Table 标题高
n3 = t1.Rows.count  'Table 行数
t1.ExtendLastCol = True
if n3 > 0 then 
    t1.SetHeaderRowHeight(n2)
    t2.DefaultRowHeight =(n1-n2-n3)/n3
End if 
[此贴子已经被作者于2013-4-5 12:32:09编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
flashv
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：577 积分：4596 威望：0 精华：0 注册：2013/3/3 1:52:00 		  发帖心情 Post By：2013/4/5 14:01:00 [只看该作者]

以下是引用FoxMan在2013-4-5 12:28:00的发言：
大概这样(另空白区背景色设为白色会好点):

Dim n1,n2,n3 as Integer 
Dim t1 as Table = Tables("X")
n1 = 138     '窗口中Table控件高度
n2 = 23       'Table 标题高
n3 = t1.Rows.count  'Table 行数
t1.ExtendLastCol = True
if n3 > 0 then 
    t1.SetHeaderRowHeight(n2)
    t2.DefaultRowHeight =(n1-n2-n3)/n3
End if 
[此贴子已经被作者于2013-4-5 12:32:09编辑过]

谢谢.

这句,t2.DefaultRowHeight =(n1-n2-n3)/n3,应该是t1吧.

 

另外,我表空白区已经是白色了.

试了一下这个代码,还是这样,边线还是在.
 回到顶部
帅哥哟，离线，有人找我吗？
flashv
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：577 积分：4596 威望：0 精华：0 注册：2013/3/3 1:52:00 		  发帖心情 Post By：2013/4/5 15:22:00 [只看该作者]

顶一下,还在求解中.

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


加好友 发短信
等级：小狐 帖子：302 积分：1860 威望：0 精华：0 注册：2012/4/27 11:34:00 		  发帖心情 Post By：2013/4/5 15:24:00 [只看该作者]

纸上不谈兵

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


加好友 发短信
等级：二尾狐 帖子：577 积分：4596 威望：0 精华：0 注册：2013/3/3 1:52:00 		  发帖心情 Post By：2013/4/6 16:06:00 [只看该作者]

官方是不是放假啊?

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


加好友 发短信
等级：二尾狐 帖子：577 积分：4596 威望：0 精华：0 注册：2013/3/3 1:52:00 		  发帖心情 Post By：2013/4/8 9:00:00 [只看该作者]

顶一下

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


加好友 发短信
等级：二尾狐 帖子：577 积分：4596 威望：0 精华：0 注册：2013/3/3 1:52:00 		  发帖心情 Post By：2013/4/8 10:02:00 [只看该作者]

只能再顶一下
 回到顶部
帅哥哟，离线，有人找我吗？
muhua
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：等待验证 帖子：3855 积分：20692 威望：0 精华：5 注册：2012/6/21 14:03:00 		  发帖心情 Post By：2013/4/8 10:16:00 [只看该作者]

用户已被锁定
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2013/4/8 10:29:00 [只看该作者]

或者试试：

 

Tables("窗口1_Table1").Grid.BorderStyle = 0
 回到顶部
总数 11 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.05664 秒, 4 次数据查询