本文整理匯總了VB.NET中System.Data.ConstraintCollection.CollectionChanged事件的典型用法代碼示例。如果您正苦於以下問題：VB.NET ConstraintCollection.CollectionChanged事件的具體用法？VB.NET ConstraintCollection.CollectionChanged怎麽用？VB.NET ConstraintCollection.CollectionChanged使用的例子？那麽, 這裏精選的事件代碼示例或許可以為您提供幫助。您也可以進一步了解該事件所在類System.Data.ConstraintCollection的用法示例。
在下文中一共展示了ConstraintCollection.CollectionChanged事件的1個代碼示例，這些例子默認根據受歡迎程度排序。您可以為喜歡或者感覺有用的代碼點讚，您的評價將有助於係統推薦出更棒的VB.NET代碼示例。
示例1: ConstraintCollectionChanged
Private Shared Sub ConstraintCollectionChanged()
' Demonstrate ConstraintCollection.CollectionChanged event.
Try
' Create Customers table.
Dim customersTable As New DataTable("Customers")
customersTable.Columns.Add("id", Type.GetType("System.Int32"))
customersTable.Columns.Add("Name", Type.GetType("System.String"))
AddHandler customersTable.Constraints.CollectionChanged, _
New System.ComponentModel.CollectionChangeEventHandler( _
AddressOf Collection_Changed)
' Create Orders table.
Dim ordersTable As New DataTable("Orders")
ordersTable.Columns.Add("CustID", Type.GetType("System.Int32"))
ordersTable.Columns.Add("CustName", Type.GetType("System.String"))
AddHandler ordersTable.Constraints.CollectionChanged, _
New System.ComponentModel.CollectionChangeEventHandler( _
AddressOf Collection_Changed)
' Create unique constraint.
Dim constraint As New UniqueConstraint(customersTable.Columns("id"))
customersTable.Constraints.Add(constraint)
' Create unique constraint and specify as primary key.
ordersTable.Constraints.Add( _
"pKey", ordersTable.Columns("CustID"), True)
' Remove constraints.
customersTable.Constraints.RemoveAt(0)
' Results in an Exception. You can't remove
' a primary key constraint.
ordersTable.Constraints.RemoveAt(0)
Catch ex As Exception
' Process exception and return.
Console.WriteLine($"Exception of type {ex.GetType()} occurred.")
End Try
End Sub
Private Shared Sub Collection_Changed(sender As object, _
ex As System.ComponentModel.CollectionChangeEventArgs)
Console.WriteLine($"List_Changed Event: '{ex.Action}'{vbTab} element={ex.Element}")
End Sub