02-01-21, 02:15 PM
السلام عليكم و رحمة الله و بركاته
عند اضافه سجل جديد فى جدول bank اريد الحصول على عدد السجلات و يضيف 1 اذا كان لايوجد سجلات فكتبت التالى
عدلت الكود ليصبح هكذا
لكنه لايعمل
مرفق ملف ال فيجوال و الداتابيس من نوع سيكوال سيرفر 2008
[attachment=26225]مرفق ملف ال فيجوال و الداتابيس من نوع سيكوال سيرفر 2008
غيرت اسم الداتابيس فى المرفقات ليصبح s
عند اضافه سجل جديد فى جدول 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