[عبدالله الدوسري]

وعليكم السلام ورحمة الله وبركاته 

InfoManager.Current
هو السجل الحالي الذي يؤشر علية ال bindingsource
اسأل اذا لم يكن هذا السجل Nothing
عندها نفذ إزالة السجل

كود :

if InfoManager.Current Isnot Nothing Then

نفذ الحذف هنا

End If

ومن باب أولى ان تعطل الزر إذا لم يكن هناك أي سجل في الأصل
هناك حدث خاص بال bindingsource 
اسمه : CurrentItemChanged
يتم تنفيذ هذا الحدث إذا تم تغيير مكان المؤشر بشكل تلقائي ، ويحدث عندما يتم افراغ الداتا قريد فيو ايضاً لأن المؤشر أصبح غير موجود لعدم وجود سجلات. ويحدث عند التنقل بين السجلات.
هنا انت تستفيد من هذا الحدث للتحكم بواجهة المستخدم. مثلا زر الحذف يتم تعطيلة لعدم وجود سجلات في الأصل وكذلك زر التحرير لنفس السبب.
مثلا بعض السجلات تحتوي على وثيقة وليس كل السجلات . وقمت بتصميم زر لعرض هذة الوثيقة. فمن باب أولى ان اسأل السجل هل يحتوي على وثيقة أم لا، وبالتالي افعل زر عرض الوثيقة أو أقوم بتعطيلة، وهكذا دواليك مع أي زر يتعامل مع السجل.

كود :

Private Sub InfoManager_CurrentItemChanged(sender as Object, e as EventArgs) Handles InfoManager.CurrentItemChanged


if InfoManager.Current Isnot Nothing Then

فعل الزر هنا

Else

عطل الزر هنا

End If


End Sub

ودائماً وأبداً ( نصيحة )
استخدم :

كود :

Try

Catch ex As Exception

End Try

( خصوصاً ) عندما تتعامل مع حالات غير متوقعة ، أو لا يمكن التنبؤ بالنتيجة . 
وهي تنفع ايضاً للهروب من الأخطاء .


أتمنى الفكرة تكون بسيطة.