منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
ترقيم تلقائي - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : ترقيم تلقائي (/showthread.php?tid=10123)

الصفحات: 1 2 3

ترقيم تلقائي - alaqsa - 18-08-13

سعود كتب :معلش المثال كبير وماليش نفس الحين Smile

:oRolleyesSmile

ترقيم تلقائي - MSDOS - 18-08-13

بناءً على المثال

ضع هذا الكود في أخر حدث تحميل الفورم Form_Load
كود :
Dim dtJobTicketNo As New DataTable
Dim dcJobTicketNo As New OleDb.OleDbCommand("SELECT MAX(tid)+1 AS JobTicketNo from country", Cost)
Cost.Open()
TextBox2.Text = dcJobTicketNo.ExecuteScalar
        Cost.Close()


ترقيم تلقائي - alaqsa - 18-08-13

MSDOS كتب :بناءً على المثال

ضع هذا الكود في أخر حدث تحميل الفورم Form_Load
كود :
Dim dtJobTicketNo As New DataTable
Dim dcJobTicketNo As New OleDb.OleDbCommand("SELECT MAX(tid)+1 AS JobTicketNo from country", Cost)
Cost.Open()
TextBox2.Text = dcJobTicketNo.ExecuteScalar
        Cost.Close()



اخي الكريم لم يعمل الكود

اتنمنى منك تعديله على البرنامج ورفع الملف


لكل جزيل الشكر

ترقيم تلقائي - MSDOS - 18-08-13

تفضل المثال

ترقيم تلقائي - ابو ابراهيم - 18-08-13

[COLOR="#0000FF"]اتمنى يكون الحل صحيح على حسب فهمي للمشكلة Rolleyes

شاهد المرفقات[/COLOR]