[سلام و محبه]

السلام عليكم و رحمة الله و بركاته
عند اضافه سجل جديد فى جدول bank اريد الحصول على عدد السجلات و يضيف 1 اذا كان لايوجد سجلات فكتبت التالى

كود :

كود :

       Dim getdate As New db_accountDataContext

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

       TxtBank_id.Text = maxid + 1

---

عدلت الكود ليصبح هكذا

كود :

كود :

       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)


       If IsDBNull(b) Then
           TxtBank_id.Text = 1
       Else
           TxtBank_id.Text = maxid + 1
       End If

لكنه لايعمل

---

مرفق ملف ال فيجوال و الداتابيس من نوع سيكوال سيرفر 2008

---

[attachment=26225]مرفق ملف ال فيجوال و الداتابيس من نوع سيكوال سيرفر 2008
غيرت اسم الداتابيس فى المرفقات ليصبح s