以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  回车键向下移动的设置无效!  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=6487)
--  作者：reachtone
--  发布时间：2010/4/5 11:21:00
--  回车键向下移动的设置无效!
尽管设置了 CurrentTable.EnterKeyActionDown = True，但回车键还是向右移动；
用 DataTable的EnterKeyActionDown设置也无效！
除非是在表属性里设置！
另外，是否启动多层表头，用代码怎么写？在ListMode为True的情况下，如何定义突出显示行的颜色？这些在帮助里都没有找到。
--  作者：yangming
--  发布时间：2010/4/5 12:36:00
--  
DataTables("表A").SysStyles("CurrentRow").BackColor = Color.red
--  作者：yangming
--  发布时间：2010/4/5 12:53:00
--  
参看帮助中的   自动生成多层表头
--  作者：reachtone
--  发布时间：2010/4/5 13:04:00
--  
以下是引用yangming在2010-4-5 12:53:00的发言：
参看帮助中的   自动生成多层表头

不是说如何生成多层表头，我的意思是，在Table中如何通过代码方式决定是否启用多层表头。

[此贴子已经被作者于2010-4-5 13:11:30编辑过]
--  作者：yangming
--  发布时间：2010/4/5 13:29:00
--  
以下是引用reachtone在2010-4-5 13:04:00的发言：

不是说如何生成多层表头，我的意思是，在Table中如何通过代码方式决定是否启用多层表头。

[此贴子已经被作者于2010-4-5 13:11:30编辑过]

这好象没有，可以自己做个复选框来确定是否启用，然后决定是用CreateSheetHeader，还是不用它，以专业报表为例
Dim doc As New PrintDoc \'定义一个新报表
Dim rt As New prt.RenderTable \'定义一个新表格
Dim tb as Table = Tables("表A")
Dim hd As Integer = tb.HeaderRows \'获得表头的层数
rt.Width = "Auto" \'表格宽度为自动,也就是等于各列设置宽度之和
rt.Style.Font = tb.Font
if e.Form.Controls("CheckBox1").Checked = True
tb.CreateReportHeader(rt,False) \'生成表头,包括所有列
For c As Integer = 0 To tb.Cols.Count -1 \'逐列设置和填入内容
    rt.Cols(c).Width = tb.Cols(c).PrintWidth \'列宽等于实际列宽
    If tb.Cols(c).IsNumeric Orelse tb.Cols(c).IsDate Then \'如果是数值或日期列
        rt.Cols(c).Style.TextAlignHorz = prt.AlignHorzEnum.Right \'数据水平靠右
    End If
    For r As integer = 0 To tb.Rows.Count -1 \'开始填入该列内容
        rt.Cells(r + hd, c).Text = tb(r,c)
    Next
Next
Else
For c As Integer = 0 To tb.Cols.Count -1 \'逐列设置和填入内容
rt.Cells(0,c).Text = tb.Cols(c).Name
    rt.Cols(c).Width = tb.Cols(c).PrintWidth \'列宽等于实际列宽
    If tb.Cols(c).IsNumeric Orelse tb.Cols(c).IsDate Then \'如果是数值或日期列
        rt.Cols(c).Style.TextAlignHorz = prt.AlignHorzEnum.Right \'数据水平靠右
    End If
    For r As integer = 0 To tb.Rows.Count -1 \'开始填入该列内容
        rt.Cells(r + hd, c).Text = tb(r,c)
    Next
Next
End If
rt.Style.Gridlines.All = New prt.Linedef(Color.Gray) \'灰色网格线
rt.CellStyle.Spacing.All = 0.5 \'单元格内距设为0.5毫米
rt.RowGroups(0,1).Header = prt.TableHeaderEnum.All \'利用行组,将第一行设为表头
doc.Body.Children.Add(rt) \'将表格加入到报表
doc.Preview()
--  作者：reachtone
--  发布时间：2010/4/5 13:45:00
--  
呵呵，杨版误会我的意思了。我不是指的生成报表，而是指Table中的“是否启用多层表头”属性。
表属性中有个“启用多层表头”属性，如果将其设为False，可以关闭多层表头。我的意思是，这个属性用代码怎么设置？
--  作者：yangming
--  发布时间：2010/4/5 13:48:00
--  
以下是引用reachtone在2010-4-5 13:45:00的发言：
呵呵，杨版误会我的意思了。我不是指的生成报表，而是指Table中的“是否启用多层表头”属性。
表属性中有个“启用多层表头”属性，如果将其设为False，可以关闭多层表头。我的意思是，这个属性用代码怎么设置？

噢，呵呵
--  作者：狐狸爸爸
--  发布时间：2010/4/5 15:45:00
--  
EnterKeyActionDown 的问题收到。

多层表头的属性名称为MultiRowHeader，逻辑型。
--  作者：狐狸爸爸
--  发布时间：2010/4/5 15:51:00
--  
通过DataTable设置是有效的：

CurrentTable.DataTable.EnterKeyActionDown = True
--  作者：yangming
--  发布时间：2010/4/5 16:22:00
--  
以下是引用狐狸爸爸在2010-4-5 15:51:00的发言：
通过DataTable设置是有效的：

CurrentTable.DataTable.EnterKeyActionDown = True

这样啊，明白