31-08-19, 01:10 PM
ممكن كود اضافة ترقيم تلقائي +السنة الحالية بدون دخول السنة في الترقيم مثل 2019-1و2019-2و2019-3 وهكذا
ممكن كود اضافة ترقيم تلقائي +السنة الحالية
|
31-08-19, 01:10 PM
ممكن كود اضافة ترقيم تلقائي +السنة الحالية بدون دخول السنة في الترقيم مثل 2019-1و2019-2و2019-3 وهكذا
تم الشكر بواسطة: ابراهيم ايبو
31-08-19, 03:26 PM
(آخر تعديل لهذه المشاركة : 02-09-19, 01:10 AM {2} بواسطة ابراهيم ايبو.)
السلام عليكم اخي الكريم
بالنسبة للترقيم التلقائي لم يخطر ببالي عملها ولااعرف ان كان بالامكان فعل ذلك سابحث بها
لكن يمكننا فعل ذلك بالترقيم العادي MaxID واضافة السنة اليها وفق الكود التالي:
ضع هذا الفنكشن في الكلاس كود : '----------Public Function MaxID---------- اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات
تم الشكر بواسطة: mohamedahmed1 , mohamedahmed1 , asemshahen5 , asemshahen5 , اسامه الهرماوي
01-09-19, 04:28 PM
(31-08-19, 03:26 PM)ابراهيم ايبو كتب : بارك الله فيك على وجعله في ميزان حسناتك . تم بعون الله الحل وهذا الحل لكي يستفيد منه الجميع 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 تم الشكر بواسطة: ابراهيم ايبو , asemshahen5
|
|