ListObject.TotalsRowRange Свойство
Определение
Важно!
Некоторые сведения относятся к предварительной версии продукта, в которую до выпуска могут быть внесены существенные изменения. Майкрософт не предоставляет никаких гарантий, явных или подразумеваемых, относительно приведенных здесь сведений.
Возвращает объект Range, который представляет строку "Итог" элемента управления ListObject.
public Microsoft.Office.Interop.Excel.Range TotalsRowRange { get; }
Значение свойства
Объект Range, который представляет строку "Итог" элемента управления ListObject.
Примеры
В следующем примере кода создаются DataTable и ListObject , а затем выполняется привязка ListObject к DataTable . Затем он получает диапазон, содержащий строку итогов, и изменяет шрифт строки итога на курсив.
Этот пример предназначен для настройки на уровне документа.
private void ListObject_TotalsRowRange()
{
// Create a new DataSet and DataTable.
DataSet ds = new DataSet();
DataTable dt = ds.Tables.Add("Sales");
dt.Columns.Add(new DataColumn("Name"));
dt.Columns.Add(new DataColumn("Quarter1"));
// Add a new row to the DataTable.
DataRow dr1 = dt.NewRow();
dr1["Name"] = "Sidney";
dr1["Quarter1"] = "150";
dt.Rows.Add(dr1);
DataRow dr2 = dt.NewRow();
dr2["Name"] = "Julia";
dr2["Quarter1"] = "175";
dt.Rows.Add(dr2);
// Create a list object.
Microsoft.Office.Tools.Excel.ListObject list1 =
this.Controls.AddListObject(
this.Range["A1"], "list1");
// Bind the list object to the DataTable.
list1.AutoSetDataBoundColumnHeaders = true;
list1.SetDataBinding(ds, "Sales", "Name",
"Quarter1");
list1.ShowTotals = true;
// Get the header row range and set the font to bold.
Excel.Range totalRow = list1.TotalsRowRange;
totalRow.Cells.Font.Italic = true;
}
Private Sub ListObject_TotalsRowRange()
' Create a new DataSet and DataTable.
Dim ds As New DataSet()
Dim dt As DataTable = ds.Tables.Add("Sales")
dt.Columns.Add(New DataColumn("Name"))
dt.Columns.Add(New DataColumn("Quarter1"))
' Add a new row to the DataTable.
Dim dr1 As DataRow = dt.NewRow()
dr1("Name") = "Sidney"
dr1("Quarter1") = "150"
dt.Rows.Add(dr1)
Dim dr2 As DataRow = dt.NewRow()
dr2("Name") = "Julia"
dr2("Quarter1") = "175"
dt.Rows.Add(dr2)
' Create a list object.
Dim List1 As Microsoft.Office.Tools.Excel.ListObject = _
Me.Controls.AddListObject(Me.Range("A1"), "List1")
' Bind the list object to the DataTable.
List1.AutoSetDataBoundColumnHeaders = True
List1.SetDataBinding(ds, "Sales", "Name", "Quarter1")
List1.ShowTotals = True
' Get the header row range and set the font to bold.
Dim totalRow As Excel.Range = List1.TotalsRowRange
totalRow.Cells.Font.Italic = True
End Sub
Комментарии
Это свойство возвращает значение, Range только если строка итогов отображается в ListObject элементе управления. Если строка итогов не отображается, возвращается значение null .