بناءً على المثال
ضع هذا الكود في أخر حدث تحميل الفورم 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 كتب :بناءً على المثال
ضع هذا الكود في أخر حدث تحميل الفورم 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()
اخي الكريم لم يعمل الكود
اتنمنى منك تعديله على البرنامج ورفع الملف
لكل جزيل الشكر
