[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
اخي سلام 
ضع هذا الفنكشن في فورم اضافة بنك ببدل الذي وضعته

كود :

   '-------------Function MaxID------------
   Public Function MaxID() As Integer
       Dim g As New sDataContext
       Dim b As New bank

       Dim Maxi = (From P In g.banks Select P.bank_id).Max()
       If Maxi = 0 Then
           Return Maxi = 1
       Else
           Return Maxi + 1
       End If
   End Function

واستبدل كود صب نيو بنك بالتالي

كود :

Public Sub newbank_id()

       TxtBank_id.Text = MaxID().ToString()
       TxtBank_name.Text = ""
       TxtBank_address.Text = ""
       Txtbank_swiftcode.Text = ""
       TxtBank_phone.Text = ""
       TxtBank_fax.Text = ""
       TxtBank_email.Text = ""
       TxtBank_webpage.Text = ""
       TxtBank_note.Text = ""
       CmbBank_user_id.Text = ""
       DtpBank_date.Value = Now.Date
       TxtBank_name.Select() 'ليضع مؤشر على التكستبوكس
   End Sub

وفي بوتون اضافة في الفورم الرئيسية نكتب هكذا

كود :

Dim frmbank_add_v As New Frmbank_add
       frmbank_add_v.newbank_id()
       frmbank_add_v.ShowDialog()

ثم اجعل الاقلاع للمشروع من القورم الرئيسية