29-12-18, 12:20 AM
السلام عليكم
إخواني لدى ثلاثة سنوات دراسية (الصف الاول . الصف الثاني, الصف الثالث ) و هي قيمة textbox3
اريد عمل رقم دراسي لكل طالب حسب السنة الدراسية
إذا كان السنة الاولى تبدأ الارقام من 100
إذا كان السنة الثانية تبدأ الارقام من 200
و إذا كان السنة الثالثة تبدأ الارقام من 300
textbox1 هو الترقيم المتسلسل للطلبة
حاولت عمل الكود التالي و لكن للأسف لم ينجح
و أستدعيت الدالة هنا
لكن للأسف دائما الدالة ترجع بيقمة (1) بالرغم من وجود سجل يحمل رقم طالب
إخواني لدى ثلاثة سنوات دراسية (الصف الاول . الصف الثاني, الصف الثالث ) و هي قيمة textbox3
اريد عمل رقم دراسي لكل طالب حسب السنة الدراسية
إذا كان السنة الاولى تبدأ الارقام من 100
إذا كان السنة الثانية تبدأ الارقام من 200
و إذا كان السنة الثالثة تبدأ الارقام من 300
textbox1 هو الترقيم المتسلسل للطلبة
حاولت عمل الكود التالي و لكن للأسف لم ينجح
كود :
Function add_id()
Dim noa As Integer
Dim billno As New OleDbCommand("SELECT max(std_no) From stdinfo WHERE (((stdinfo.std_year)=" & TextBox3.Text.Trim & "))", cn)
'If cn.State = ConnectionState.Open Then con.Close()
If cn.State = ConnectionState.Closed Then
cn.Open()
End If
If billno.ExecuteScalar IsNot DBNull.Value Then
noa =1
Else
noa = billno.ExecuteScalar + 1
End If
Return noa
End Function
و أستدعيت الدالة هنا
كود :
Private Sub TextBox3_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged
If TextBox3.Text = 1 Then
If add_id() = 1 Then
TextBox1.Text = 100
End If
End If
If TextBox3.Text = 2 Then
If add_id() = 1 Then
TextBox1.Text = 200
End If
End If
If TextBox3.Text = 3 Then
If add_id() = 1 Then
TextBox1.Text = 300
End If
End If
End Sub