[alaqsa]

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

:o

[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()

[alaqsa]

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]

تفضل المثال

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

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

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