- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何设置窗口中Table的边框? (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=30855)
-- 发布时间：2013/4/5 11:39:00
-- 如何设置窗口中Table的边框?
如何设置窗口中Table的边框?
此主题相关图片如下：2013-4-5 11-33-55.png
此主题相关图片如下：44.png
这样很难看.
因为据跟据需要有增减的.所以无论如何设置都不会.
宽度设正好吧,出现滚动条后就不行.
高度设高了吧,就出现边线.
有没有办法控制窗口中Table控件的样式?最主要就是边框.
[此贴子已经被作者于2013-4-5 11:39:47编辑过]
-- 发布时间：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编辑过]
-- 发布时间：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吧.
另外,我表空白区已经是白色了.
试了一下这个代码,还是这样,边线还是在.
-- 发布时间：2013/4/5 15:22:00
--
顶一下,还在求解中.
-- 发布时间：2013/4/5 15:24:00
--
纸上不谈兵
-- 发布时间：2013/4/6 16:06:00
--
官方是不是放假啊?
-- 发布时间：2013/4/8 9:00:00
--
顶一下
-- 发布时间：2013/4/8 10:02:00
--
只能再顶一下
-- 发布时间：2013/4/8 10:29:00
--
或者试试：
Tables("窗口1_Table1").Grid.BorderStyle = 0
-- 发布时间：2013/4/8 11:42:00
--
以下是引用狐狸爸爸在2013-4-8 10:29:00的发言：
或者试试：
Tables("窗口1_Table1").Grid.BorderStyle = 0
设为0不大好(没边框,难看),设为1较好(如不想出现滚动条,调整标题高及行高OK)