如何设置窗口中Table的边框? - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有7803人关注过本帖树形打印复制链接主题：如何设置窗口中Table的边框?

FoxMan

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]

FoxMan

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

等级：小狐帖子：302 积分：1860 威望：0 精华：0 注册：2012/4/27 11:34:00

Post By：2013/4/5 15:24:00 [显示全部帖子]

纸上不谈兵

FoxMan

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

等级：小狐帖子：302 积分：1860 威望：0 精华：0 注册：2012/4/27 11:34:00

Post By：2013/4/8 11:42:00 [显示全部帖子]

以下是引用狐狸爸爸在2013-4-8 10:29:00的发言：

或者试试：

Tables("窗口1_Table1").Grid.BorderStyle = 0

设为0不大好(没边框,难看),设为1较好(如不想出现滚动条,调整标题高及行高OK)

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