主题：回车键向下移动的设置无效!

尽管设置了 CurrentTable.EnterKeyActionDown = True，但回车键还是向右移动；
用 DataTable的EnterKeyActionDown设置也无效！
除非是在表属性里设置！
另外，是否启动多层表头，用代码怎么写？在ListMode为True的情况下，如何定义突出显示行的颜色？这些在帮助里都没有找到。

DataTables("表A").SysStyles("CurrentRow").BackColor = Color.red

参看帮助中的   自动生成多层表头

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

这好象没有，可以自己做个复选框来确定是否启用，然后决定是用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()

呵呵，杨版误会我的意思了。我不是指的生成报表，而是指Table中的“是否启用多层表头”属性。
表属性中有个“启用多层表头”属性，如果将其设为False，可以关闭多层表头。我的意思是，这个属性用代码怎么设置？

噢，呵呵

EnterKeyActionDown 的问题收到。

多层表头的属性名称为MultiRowHeader，逻辑型。

通过DataTable设置是有效的：

CurrentTable.DataTable.EnterKeyActionDown = True

这样啊，明白