と の 2 つのテーブルがMain
ありVendors
ます。
Main table:
MainID (PK)
Name
Address
...
Vendors table:
VendorID (PK)
MainID (ForeignKey)
Code
....
Vendors
テーブルのデータがListBox
コントロールに表示されます。
ListBox コントロールのボタンを使用してテーブルから行を削除しようとするとVendors
、次のエラーが発生します。
添付されていないエンティティは削除できません。
削除ボタンのコードは次のとおりです。
Dim button = TryCast(sender, Button)
If button IsNot Nothing Then
Using db As New theContext.theContext("Data Source=isostore:/theDB.sdf")
Dim RecordToDelete As Vendors = TryCast(button.DataContext, Vendors)
VendorsRecords.Remove(RecordToDelete)
db.VendorsRecords.DeleteOnSubmit(RecordToDelete)
db.SubmitChanges()
End Using
End If