ListObject.HeaderRowRange Свойство
Определение
Важно!
Некоторые сведения относятся к предварительной версии продукта, в которую до выпуска могут быть внесены существенные изменения. Майкрософт не предоставляет никаких гарантий, явных или подразумеваемых, относительно приведенных здесь сведений.
Возвращает объект Range, который представляет диапазон строки заголовка.
public Microsoft.Office.Interop.Excel.Range HeaderRowRange { get; }
Значение свойства
Объект Range, который представляет диапазон строки заголовка.
Примеры
В следующем примере кода создаются DataTable и ListObject , а затем выполняется привязка ListObject к DataTable . Затем он получает диапазон, содержащий строку заголовка, и изменяет шрифт строки заголовка на полужирный.
Этот пример предназначен для настройки на уровне документа.
private void ListObject_HeaderRowRange()
{
// Create a new DataSet and DataTable.
DataSet ds = new DataSet();
DataTable dt = ds.Tables.Add("Customers");
dt.Columns.Add(new DataColumn("LastName"));
dt.Columns.Add(new DataColumn("FirstName"));
// Add a new row to the DataTable.
DataRow dr = dt.NewRow();
dr["LastName"] = "Chan";
dr["FirstName"] = "Gareth";
dt.Rows.Add(dr);
// 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, "Customers", "LastName",
"FirstName");
// Get the header row range and set the font to bold.
Excel.Range headerRow = list1.HeaderRowRange;
headerRow.Cells.Font.Bold = true;
}
Private Sub ListObject_HeaderRowRange()
' Create a new DataSet and DataTable.
Dim ds As New DataSet()
Dim dt As DataTable = ds.Tables.Add("Customers")
dt.Columns.Add(New DataColumn("LastName"))
dt.Columns.Add(New DataColumn("FirstName"))
' Add a new row to the DataTable.
Dim dr As DataRow = dt.NewRow()
dr("LastName") = "Chan"
dr("FirstName") = "Gareth"
dt.Rows.Add(dr)
' 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, "Customers", _
"LastName", "FirstName")
' Get the header row range and set the font to bold.
Dim headerRow As Excel.Range = List1.HeaderRowRange
headerRow.Cells.Font.Bold = True
End Sub
Комментарии
Если строка заголовка отсутствует, HeaderRowRange возвращается значение null .