主题：这样的表格可以实现吗

 不可以，这又不是excel表格，foxtable里面，不要这样设计，而且不利于查询统计。

你可以这样写代码，参考

 

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

那没办法，只能如6楼那样。