[سلام و محبه]

شكراااااااااااااااااا اخ ابراهيم يعمل بشكل جيد
لاحظت عند ضغط زر نيو و الداتاجريدفيو فارغ يعطى

فهل اكتب سطر معناه اذا كان عدد الصفوف = 0 يكون الزر enabled=false ام لها حل افضل
كيف اكتب كود معناه (اذا كان عدد الصفوف = 0)
_______________________________________________________________________________________________________________________________
استفسار آخر
يوجد اكثر من فورم كتبت فى class1 كود لتنسيق الفورم

كود :

Public Class Class1

   Public Sub FormatingOfForms()
       Frm_accounts.FormBorderStyle = FormBorderStyle.FixedToolWindow
       Frm_accounts.RightToLeft = RightToLeft.Yes
       Frm_accounts.StartPosition = FormStartPosition.CenterScreen
       '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
       Frmbank.FormBorderStyle = FormBorderStyle.FixedToolWindow
       Frmbank.RightToLeft = RightToLeft.Yes
       Frmbank.StartPosition = FormStartPosition.CenterScreen
       '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

   End Sub

End Class

و فى اجراء  frmbank_load استدعيته

كود :

Public Class Frmbank

   Private Sub Frmbank_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       FormatingOfForms()
   End Sub
End Class

يضع خط ازرق تحت  FormatingOfForms()
________________________________________________________________________________________________________________________________________
استفسار ثالث
لماذا لم تستخدم التالى للحصول على max

كود :

       Dim getdata As New db_accountDataContext

       Dim b = From cors In getdata.banks Select cors

       Dim maxid = Aggregate newid In getdata.banks Into Max(newid.bank_id)

و استخدمت بدلها function

كود :

  '-------------Function MaxID------------
   Public Function MaxID_bank() As Integer
       Dim Maxid = (From B In DBcontext.banks Select B.bank_id).Max()
       If Maxid = 0 Then
           'Cleardata_bank()
           Return Maxid = 1
       Else
           Return Maxid + 1
       End If
   End Function

اسف على الاطاله