حذف الحساب

برمجت دليل حسابات اريد عندما لايكون للحساب ابناء يحذفه وهذا ينفذه ، واريده عندما يكون للحساب ابناء ان يحذفه ويحذف كل الحسابات المندرجه تحت هذا الحساب الرئيسي وهذا لايتم

وكتبت هذا الكود للحذف لكن ينفذ الجزء الاول ولاينفذ الجزء التانى

Private Sub ToolStripDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripDelete.Click

Try

If Me.TreeView1.SelectedNode.GetNodeCount(True) = 0 Then 'اذا لم يكن للحساب ابناء

Dim D As New accountsDataContext

Dim a = (From c In D.accounts Where c.account_id = Me.Txtparentid.Text).ToList(0)

D.accounts.DeleteOnSubmit(a)

D.SubmitChanges()

MsgBox("تم الحذف")

ElseIf Me.TreeView1.SelectedNode.GetNodeCount(True) > 0 Then 'اذا كان للحساب ابناء

Dim Ds As New accountsDataContext

Dim b = From c In Ds.accounts Where c.account_parent = Me.Txtparentid.Text.ToList(0)

Ds.accounts.InsertAllOnSubmit(

Ds.SubmitChanges()

Dim DDl As New accountsDataContext

Dim bb = (From c In DDl.accounts Where c.account_id = Me.Txtparentid.Text).ToList(0)

DDl.accounts.DeleteOnSubmit(bb)

DDl.SubmitChanges()

MsgBox("تم الحذف")

End If

Catch ex As Exception

MsgBox(ex.Message)

End Try

End Sub

عند حذف الحساب 1 يتم حذفه من الشجره ومن الداتابيس

اما عند تحديد الحساب 2 الذى له ابن لايحذفه وتظهر رساله exception