ErrorAddDataBoundRowEventHandler مفوَّض
تمثل الطريقة التي يعالج على ErrorAddDataBoundRowحدث.
مساحة الاسم: Microsoft.Office.Tools.Excel
التجميع: Microsoft.Office.Tools.Excel (في Microsoft.Office.Tools.Excel.dll)
بناء الجملة
'إقرار
Public Delegate Sub ErrorAddDataBoundRowEventHandler ( _
sender As Object, _
e As ErrorAddDataBoundRowEventArgs _
)
public delegate void ErrorAddDataBoundRowEventHandler(
Object sender,
ErrorAddDataBoundRowEventArgs e
)
المعلمات
- sender
النوع: System.Object
مصدر الحدث.
- e
النوع: Microsoft.Office.Tools.Excel.ErrorAddDataBoundRowEventArgs
ErrorAddDataBoundRowEventArgsيحتوي على بيانات حدث.
ملاحظات
عندما تقوم بإنشاء ErrorAddDataBoundRowEventHandlerالمفوض، تتعرف على الطريقة التي سيقوم بمعالجة حدث. إلى ربط حدث مع معالج الأحداث الخاص بك، إضافة مثيل المفوض إلى حدث. تم استدعاء الأسلوب معالج حدث كلما حصل حدث إلا إذا قمت بإزالة المفوض. للحصول على مزيد من المعلومات حول التفويضات، راجع أحداث و مفوضون.
أمثلة
إنشاء مثال التعليمة البرمجية التالية على DataTableو ListObject، وربطها ListObjectإلى DataTable. ثم إنشاء عنصر ErrorAddDataBoundRowمعالج حدث. لاختبار حدث، يدوياً إضافة صف جديد إلى ListObjectوادخل "Chan" اسم العائلة والاسم أول. معالج الأحداث بعرض رسالة.
Th هو المثال هو لتخصيص المستوى مستند.
WithEvents ErrorAddDataBoundRowList As _
Microsoft.Office.Tools.Excel.ListObject
Private Sub ListObject_ErrorAddDataBoundRow()
' Create a new DataSet and DataTable.
Dim ds As New DataSet()
Dim dt As DataTable = ds.Tables.Add("Customers")
Dim lastName As New DataColumn("LastName")
dt.Columns.Add(lastName)
dt.Columns.Add(New DataColumn("FirstName"))
Dim myUC As New UniqueConstraint("CustConstraint", _
lastName)
dt.Constraints.Add(myUC)
' 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.
ErrorAddDataBoundRowList = _
Me.Controls.AddListObject(Me.Range("A1"), _
"ErrorAddDataBoundRowList")
' Bind the list object to the DataTable.
ErrorAddDataBoundRowList.AutoSetDataBoundColumnHeaders = True
ErrorAddDataBoundRowList.SetDataBinding(ds, "Customers", _
"LastName", "FirstName")
End Sub
Private Sub List1_ErrorAddDataBoundRow(ByVal sender As Object, _
ByVal e As Microsoft.Office.Tools.Excel.ErrorAddDataBoundRowEventArgs) _
Handles ErrorAddDataBoundRowList.ErrorAddDataBoundRow
MessageBox.Show("Last names must be unique.")
End Sub
private void ListObject_ErrorAddDataBoundRow()
{
// Create a new DataSet and DataTable.
DataSet ds = new DataSet();
DataTable dt = ds.Tables.Add("Customers");
DataColumn lastName = new DataColumn("LastName");
dt.Columns.Add(lastName);
dt.Columns.Add(new DataColumn("FirstName"));
UniqueConstraint myUC = new UniqueConstraint( "CustConstraint",
lastName);
dt.Constraints.Add(myUC);
// 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", missing], "list1");
// Bind the list object to the DataTable.
list1.AutoSetDataBoundColumnHeaders = true;
list1.SetDataBinding(ds, "Customers", "LastName",
"FirstName");
// Create the event handler.
list1.ErrorAddDataBoundRow += new
Microsoft.Office.Tools.Excel.
ErrorAddDataBoundRowEventHandler(list1_ErrorAddDataBoundRow);
}
void list1_ErrorAddDataBoundRow(object sender,
Microsoft.Office.Tools.Excel.ErrorAddDataBoundRowEventArgs e)
{
MessageBox.Show("Last names must be unique.");
}