+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : ممكن كود اضافة ترقيم تلقائي +السنة الحالية (/showthread.php?tid=31155)
ممكن كود اضافة ترقيم تلقائي +السنة الحالية - ابو رضوان - 31-08-19
ممكن كود اضافة ترقيم تلقائي +السنة الحالية بدون دخول السنة في الترقيم مثل 2019-1و2019-2و2019-3 وهكذا
RE: ممكن كود اضافة ترقيم تلقائي +السنة الحالية - ابراهيم ايبو - 31-08-19
السلام عليكم اخي الكريم
بالنسبة للترقيم التلقائي لم يخطر ببالي عملها ولااعرف ان كان بالامكان فعل ذلك سابحث بها
لكن يمكننا فعل ذلك بالترقيم العادي MaxID واضافة السنة اليها وفق الكود التالي:
ضع هذا الفنكشن في الكلاس
كود :
'----------Public Function MaxID----------
Public Function MaxID_Table() As DataTable
Dim Query As String = "Select IIF(MAX(ID) IS Null,1,MAX(ID)+1 ) From Table"
Dim Cmd As OleDbCommand
Dim dt As New DataTable
dt.Clear()
Cmd = New OleDbCommand(Query, con)
Dim da As New OleDbDataAdapter(Cmd)
da.Fill(dt)
Return (dt)
End Function
Private Sub BtnNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnNew.Click
' وفي زر جديد استخدم هذا الفنكشن مع اضافة السنة
Dim DD As Date = Now ' تعريف متغير من نوع تاريخ يساوي التاريخ الحالي
Txt_ID.Text = MaxID_Table.Rows(0)(0).ToString & "-" & DD.ToString("yyyy") 'اضافة السنة الى الرقم المجلوب
End SubRE: ممكن كود اضافة ترقيم تلقائي +السنة الحالية - ابو رضوان - 01-09-19
(31-08-19, 03:26 PM)ابراهيم ايبو كتب :السلام عليكم اخي الكريم
بالنسبة للترقيم التلقائي لم يخطر ببالي عملها ولااعرف ان كان بالامكان فعل ذلك سابحث بها
لكن يمكننا فعل ذلك بالترقيم العادي MaxID واضافة السنة اليها وفق الكود التالي:
ضع هذا الفنكشن في الكلاس
كود :
'----------Public Function MaxID----------
Public Function MaxID_Table() As DataTable
Dim Query As String = "Select IIF(MAX(ID) IS Null,1,MAX(ID)+1 ) From Table"
Dim Cmd As OleDbCommand
Dim dt As New DataTable
dt.Clear()
Cmd = New OleDbCommand(Query, con)
Dim da As New OleDbDataAdapter(Cmd)
da.Fill(dt)
Return (dt)
End Function
Private Sub BtnNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnNew.Click
' وفي زر جديد استخدم هذا الفنكشن مع اضافة السنة
Dim DD As Date = Now ' تعريف متغير من نوع تاريخ يساوي التاريخ الحالي
Txt_ID.Text = Prd.MaxID_Personal.Rows(0)(0).ToString & "-" & DD.ToString("yyyy") 'اضافة السنة الى الرقم المجلوب
End Sub
بارك الله فيك على وجعله في ميزان حسناتك . تم بعون الله الحل وهذا الحل لكي يستفيد منه الجميع
Nogeneral.Text = Format(CODE_GENE() + 1 & "-" & Year(Exdate.Value.ToString))
'الترقيم التلقائي ........................................................
Public Function CODE_GENE() As Integer
CODE_GENE = 0
Dim DT As New DataTable
Dim SQL = "select * from Exporting "
Dim DA As New SqlClient.SqlDataAdapter(SQL, SQLcon)
'Dim DA As New SqlClient.SqlDataAdapter("SELECT * FROM " & TBLNAME & " ORDER BY " & FLDID & "", SQLcon)
DA.Fill(DT)
If DT.Rows.Count <> 0 Then
Dim I = DT.Rows.Count - 1
CODE_GENE = Val(DT.Rows(I).Item("Nogeneral"))
End If
End Function