ListObject.SourceType Property
Definition
Important
Some information relates to prerelease product that may be substantially modified before it’s released. Microsoft makes no warranties, express or implied, with respect to the information provided here.
Gets the current source of the list.
public:
property Microsoft::Office::Interop::Excel::XlListObjectSourceType SourceType { Microsoft::Office::Interop::Excel::XlListObjectSourceType get(); };
public Microsoft.Office.Interop.Excel.XlListObjectSourceType SourceType { get; }
member this.SourceType : Microsoft.Office.Interop.Excel.XlListObjectSourceType
Public ReadOnly Property SourceType As XlListObjectSourceType
Property Value
One of the XlListObjectSourceType values.
Examples
The following code example creates a DataTable and a ListObject, and then binds the ListObject to the DataTable. It then displays the source of the list in a message.
This example is for a document-level customization.
private void ListObject_SourceType()
{
// 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 source type and display it in a message.
MessageBox.Show("The source type of list1 is " +
list1.SourceType.ToString() + ".");
}
Private Sub ListObject_SourceType()
' 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 source type and display it in a message.
MessageBox.Show("The source type of List1 is " & _
List1.SourceType.ToString() & ".")
End Sub