以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 如何让如图这个表格 单元格1 2 3 平分这个表格的宽度  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=169262)

--  作者:职业技术学校
--  发布时间:2021/6/9 10:57:00
--  [求助] 如何让如图这个表格 单元格1 2 3 平分这个表格的宽度

图片点击可在新窗口打开查看此主题相关图片如下:单元格123.png
图片点击可在新窗口打开查看


单元1的宽度= 单元2的宽度 =单元3的宽度 = 表格宽度的1/3

下面单元格宽度保持不变

Dim Doc As New PrintDoc
Dim rt As New prt.RenderTable
Doc.Body.Children.Add(rt)
rt.Rows.count = 7
rt.Cols.count = 7
rt.Height = 100
rt.cells(0,2).SpanCols = 5
rt.Style.Gridlines.All = new prt.LineDef

Doc.Preview

--  作者:有点蓝
--  发布时间:2021/6/9 11:08:00
--  
Dim Doc As New PrintDoc
Dim rt As New prt.RenderTable
Doc.Body.Children.Add(rt)
rt.Rows.count = 7
rt.Cols.count = 7
rt.Height = 100
rt.Cols(0).Width = "Parent.Width / 3"
rt.Cols(1).Width = "Parent.Width / 3"
rt.cells(0,2).SpanCols = 5
rt.Style.Gridlines.All = new prt.LineDef

Doc.Preview

--  作者:职业技术学校
--  发布时间:2021/6/9 11:12:00
--  
你这样下面的单元格宽度变了,不符合要求
变成这样的了,我要求的是下面的单元格宽度不能变

图片点击可在新窗口打开查看此主题相关图片如下:下面单元格.png
图片点击可在新窗口打开查看



--  作者:有点蓝
--  发布时间:2021/6/9 11:15:00
--  
如果列数是偶数的,按偶数单元格合并即可;如果列数是奇数的,没有办法评分。

第一行单独使用一个表格,后面的行另外使用一个表格

--  作者:wei0769
--  发布时间:2021/6/9 12:24:00
--  
第一行3格,第二行开始7格,怎样平分?
--  作者:y2287958
--  发布时间:2021/6/9 14:34:00
--  
分成两个表做