Object: 2DTableItemBackgroundColor

Dim oMy2DTable, oMyPosition, oMyRow, oMyColumn
Call Report.NewLayout()
Set oMy2DTable = Report.ActiveSheet.Objects.Add(eReportObject2DTable,"My2DTable")
Set oMyPosition = oMy2DTable.Position.ByBorder
oMyPosition.Top = 30
oMyPosition.Bottom = 20
oMyPosition.Left = 20
oMyPosition.Right = 30
Set oMyColumn = oMy2DTable.Columns.Add(e2DTableColumnChannel)
oMyColumn.Channel.Reference = "[1]/[2]"
oMyColumn.Settings.Alignment = eTableAlignmentDecimalPoint
oMyColumn.Settings.Format = "d.dddd"
Set oMyRow = oMy2DTable.Settings.RowBackground
oMyRow.BackgroundColor.ColorIndex = eColorIndexGrey
oMyRow.AlternatingBackgroundColor.ColorIndex = eColorIndexYellow
Call Report.Refresh()