- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 这样的表格可以实现吗 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=81515)
-- 发布时间：2016/2/29 14:46:00
-- 这样的表格可以实现吗
如下图所示： 这是一个中医处方的表格，表格分为若干列， 每一列前面 是药名，紧跟着一列是用法用量， 用法用量又分为 上下两部分， 上面是 用法， 比如 炒制，或者打烂，下面是 用量，10g等， 用量又分为 数量 和单位 两部分
整张表分为若干列， 行数可以 根据需要增加， 列数一般固定， 3列，4列都可
此主题相关图片如下：qq图片20160229144311.png
-- 发布时间：2016/2/29 15:08:00
--
不可以，这又不是excel表格，foxtable里面，不要这样设计，而且不利于查询统计。
-- 发布时间：2016/2/29 15:51:00
--
回复楼上， 可是我需要这样的界面，怎么办呢？
-- 发布时间：2016/2/29 15:54:00
--
拆分为：药名、用法、用量、单位
-- 发布时间：2016/2/29 16:01:00
--
怎么拆分，能举个例子吗， 简单画个图，更好
-- 发布时间：2016/2/29 16:03:00
--
你可以这样写代码，参考
Dim t As Table = Tables("表A")
t.Grid.AllowMerging = C1.Win.C1FlexGrid.AllowMergingEnum.Custom
For i As Integer = 1 To t.rows.count Step 2
For j As Integer = 1 To 9 Step 3
Dim rng As C1.Win.C1FlexGrid.CellRange = t.Grid.GetCellRange(i, j, i+1, j)
t.Grid.MergedRanges.Add(rng)
rng = t.Grid.GetCellRange(i, j+1, i, j+2)
t.Grid.MergedRanges.Add(rng)
Next
Next
-- 发布时间：2016/2/29 16:04:00
--
如图
此主题相关图片如下：qq截图20160229160409.png
-- 发布时间：2016/2/29 16:11:00
--
这不是我需要的
-- 发布时间：2016/2/29 16:17:00
--
那没办法，只能如6楼那样。
-- 发布时间：2016/2/29 16:48:00
--
哥们,试试Word报表,可以地