26-06-15, 04:23 PM
لدي حقول في جدول daily عبارة عن ارقام سندات تخزن في الجدول
استخدمت الكود التالي ولكن لم يعمل
Try
Dim num As String = "select max(id_kh) from daily"
Dim tar As New OleDbCommand(num, conn)
conn.Open()
Dim A As Integer = tar.ExecuteScalar + "1"
Me.TextBox1.Text = A
conn.Close()
' Me.TextBox2.Clear()
Catch ex As Exception
End Try
أين الخطأ وكيف اضيف ترقيم تلقائي لهذا الحقل علما" قد تكون هناك فراغات بالسجلات لأن قد يكون هناك رقم اخر لسجل اخر فيه ترقيم لسند صرف مثلا" في حقل اسميته id_s ولسند قيد id_k
استخدمت الكود التالي ولكن لم يعمل
Try
Dim num As String = "select max(id_kh) from daily"
Dim tar As New OleDbCommand(num, conn)
conn.Open()
Dim A As Integer = tar.ExecuteScalar + "1"
Me.TextBox1.Text = A
conn.Close()
' Me.TextBox2.Clear()
Catch ex As Exception
End Try
أين الخطأ وكيف اضيف ترقيم تلقائي لهذا الحقل علما" قد تكون هناك فراغات بالسجلات لأن قد يكون هناك رقم اخر لسجل اخر فيه ترقيم لسند صرف مثلا" في حقل اسميته id_s ولسند قيد id_k
وما نيل المطالب بالتمني ,,,
لكن تأخذ الدنيا غلابا ........................