- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 多层表头显示不正确 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=104589)
-- 发布时间：2017/8/1 14:39:00
-- 多层表头显示不正确
[此贴子已经被作者于2017/8/1 14:39:19编辑过]
-- 发布时间：2017/8/1 15:21:00
--
你用的是什么版本？试用版？开发版？有可能试用版过期了。
-- 发布时间：2017/8/1 17:08:00
--
谢谢老师回答，是下面这段合并代码导致的 我把合并代码注释就可以了
请问一下为什么下面这段代码 如果合并列包含 _ 的就显示不正确 请问我要怎么修改这段代码？
Dim dr As DataRow =DataTables("查询配置表").SQLfind("窗口名称=\'" & _ckmc & "\' ")
If dr IsNot Nothing Then
Dim ss As String =dr("合并列")
Dim qx As WinForm.Button = Forms(_ckmc).Controls("取消合并")
qx.PerformClick
Dim tb As Table = Tables(_ckmc & "_table1")
Dim Names As New List(Of String)
For Each r As Row In tb.Rows
If Names.Contains(r("单据编号"))= False Then
Names.Add(r("单据编号"))
End If
Next
Dim i As Integer
Dim j As Integer
For Each r As Row In tb.Rows
i= tb.DataTable.Compute("count(单据编号)"," 单据编号= \'" & r("单据编号") & "\'")
If Names.Contains(r("单据编号"))= True Then
Names.Remove(r("单据编号"))
j= r.Index +1
For x As Integer = 1 To tb.Cols.Count
Dim rc As Col =tb.Cols(x-1)
If ss.Contains(rc.Name)=True Then
Dim a As Integer = j
Dim b As Integer = x
Dim c As Integer = i+j-1
Dim d As Integer = x
tb.Grid.AllowMerging = C1.Win.C1FlexGrid.AllowMergingEnum.Custom
Dim rng As C1.Win.C1FlexGrid.CellRange = tb.Grid.GetCellRange(a,b,c,d)
tb.Grid.MergedRanges.Add(rng)
End If
Next
End If
If names.Count = 0 Then
Exit For
End If
Next
End If
[此贴子已经被作者于2017/8/1 17:08:24编辑过]
-- 发布时间：2017/8/1 17:41:00
--
j= r.Index +1
改成
j= r.Index + tb.HeaderRows
-- 发布时间：2017/8/2 7:24:00
--
谢谢老师
