08-12-20, 01:47 AM
08-12-20, 02:26 AM
ترقيم تلقائي في قاعدة البيانات ؟
08-12-20, 10:09 AM
(08-12-20, 02:26 AM)Anas Mahmoud كتب : [ -> ]ترقيم تلقائي في قاعدة البيانات ؟
رقم تسلسلي على فواتير مقهى مثلا يبدا من 0001 الى الخ و بعد 24 ساعة يبدا من الواحد من جديد مش متاكد بس ممكن في داتا جريد فيو بس لانه ليس لدي خبرة حقيقتا مارايك انت هل تكون في قاعدة البيانات او داتا قريد فيو الترقيم
08-12-20, 10:56 AM
اجعل من التاريخ هو شرط الترقيم
08-12-20, 11:20 AM
(08-12-20, 10:56 AM)قناص المدينة كتب : [ -> ]اجعل من التاريخ هو شرط الترقيم
ماذا تقصد اخي
08-12-20, 07:43 PM
(08-12-20, 02:26 AM)Anas Mahmoud كتب : [ -> ]ترقيم تلقائي في قاعدة البيانات ؟
يوجد كود اخر لتغير لون صف داتا غريد فيو هل تحتاجه لربما تستفيد منه
10-12-20, 09:33 PM
03-11-23, 06:04 PM
قناص المدينة انت مبدع بحق وفقك الله .
04-11-23, 01:42 PM
هذا الكود كاملا اخي
Dim cs As New SqlConnection("Data Source=.\SQLEXPRESS; INITIAL CATALOG=AutoID; INTEGRATED SECURITY=true;")
Dim ds As New DataSet
Dim da As New SqlDataAdapter("SELECT TOP 1 ID FROM tblAutoID WHERE MyYear=" & DateTimePicker1.Value.Year & " ORDER BY ID DESC", cs)
da.Fill(ds, "tblAutoID")
Dim dv As New DataView(ds.Tables("tblAutoID"))
If Me.BindingContext(dv).Count > 0 Then
txtID.Text = CInt(Me.BindingContext(dv).Current("ID")) + 1
Else
txtID.Text = 1
End If
Dim cs As New SqlConnection("Data Source=.\SQLEXPRESS; INITIAL CATALOG=AutoID; INTEGRATED SECURITY=true;")
Dim ds As New DataSet
Dim da As New SqlDataAdapter("SELECT TOP 1 ID FROM tblAutoID WHERE MyYear=" & DateTimePicker1.Value.Year & " ORDER BY ID DESC", cs)
da.Fill(ds, "tblAutoID")
Dim dv As New DataView(ds.Tables("tblAutoID"))
If Me.BindingContext(dv).Count > 0 Then
txtID.Text = CInt(Me.BindingContext(dv).Current("ID")) + 1
Else
txtID.Text = 1
End If