تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
إظهار الترقيم السنوي بالداتاغريد
#1
السلام عليكم.اخواني هذا ملف للترقيم السنوي للاستاذ حريف برمجة وجدتو بالمنتدى و يعمل بطريقىة سليمة.فقط اريد ان يظهر الترقيم على الداتا غريد من اليمين لليسار.الان الترقيم يظهر على الداتاغريد هيك 2018_0001 اريده يظهر هيك 0001-2018
شكرا لكم اخواني


الملفات المرفقة
.rar   WindowsApplication1New.rar (الحجم : 233.14 ك ب / التحميلات : 47)
الرد
تم الشكر بواسطة:
#2
(05-09-18, 08:31 PM)العيدروس كتب : السلام عليكم.اخواني هذا ملف للترقيم السنوي للاستاذ حريف برمجة وجدتو بالمنتدى و يعمل بطريقىة سليمة.فقط اريد ان يظهر الترقيم على الداتا غريد من اليمين لليسار.الان الترقيم يظهر على الداتاغريد هيك 2018_0001 اريده يظهر هيك 0001-2018
شكرا لكم اخواني

وعليكم السلام ،،

ابشر يالعيدروس ،، اولاً امسح الداتا الموجوده في الجدول .

واستبدل الكود هذا بالموجود في المثال :


كود :
Imports System.Data.OleDb

Public Class Form1

   Dim conn As New OleDbConnection("Provider=Microsoft.Ace.OLEDB.12.0;Jet OLEDB:Database Password=123; Data Source=" & Application.StartupPath & "\DBTEST.accdb")
   Dim InfoTable As DataTable
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim cmd As New OleDbCommand("insert into Table1 (ID) values (@ID)", conn)
       cmd.Parameters.AddWithValue("@ID", TextBox1.Text)

       conn.Open()
       cmd.ExecuteNonQuery()
       cmd.Dispose()
       conn.Close()

       'إدراج التسلسل الجديد بعد عملية الحفظ
       shownewid()
   End Sub

   Sub shownewid()   'الصب المسئول عن إدراج تسلسل جديد

       If Date.Now.Month = 1 And Date.Now.Day = 1 Then
           TextBox1.Text = Date.Now.Year & "-" & "0001"
           Exit Sub
       End If
       Dim dp As New OleDbDataAdapter("Select Top 1 ID from Table1 order by ID DESC", conn)
       Dim dt As New DataTable
       dp.Fill(dt)
       If dt.Rows.Count = 0 Then
           TextBox1.Text = Date.Now.Year & "-" & "0001"
       Else
           Dim idall As String = dt.Rows(0)(0).ToString
           idall = Replace(idall, "-", "-")
           Dim strArr() As String = idall.Split("-")
           TextBox1.Text = Date.Now.Year & "-" & Val(strArr(1) + 1).ToString("0000")
       End If


       InfoTable = New DataTable
       Using InfoAdapter As New OleDbDataAdapter("Select * from Table1", conn)
           InfoAdapter.Fill(InfoTable)
       End Using

       DataGridView1.DataSource = InfoTable
   End Sub

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       shownewid()
   End Sub
End Class
الرد
تم الشكر بواسطة: العيدروس , العيدروس , elgokr
#3
ربنا يرزقك بخير الدنيا و الآخرة استاذ حريف برمجة الآن يشاغل زي ما اريد بالضبط يعطيك الف صحة و عافية
بارك الله فيك
الرد
تم الشكر بواسطة: elgokr


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة الترقيم التلقائي sql moh developer 14 327 17-10-20, 04:47 AM
آخر رد: عبد العزيز البسكري
  مشكلة الترقيم التلقائي محمد خيري 4 611 21-09-20, 11:58 AM
آخر رد: Thht
  الترقيم التلقائي في الكريستال ريبورت عمور2016 3 366 22-07-20, 08:51 PM
آخر رد: عمور2016
  مشكلة في الترقيم التلقائي في قاعدة بيانات سيكوال سيرفر momani33 3 374 27-05-20, 11:49 PM
آخر رد: momani33
  [VB.NET] ظهور رسالة خطأ فى كود إعادة الترقيم التلقائى مصطفى_ظيمة 18 1,212 27-05-20, 04:55 AM
آخر رد: عاصم النجار
  [VB.NET] إظهار جدول آخر يحمل البيانات عن طريق البحث من خلية في داتاغريد Alhootti1 2 356 06-05-20, 04:46 AM
آخر رد: Alhootti1
  [VB.NET] اعادة الترقيم mne3000 0 218 25-03-20, 12:00 AM
آخر رد: mne3000
  محتاج مثال سورس ... إظهار تنبية لتاريخ معين .. يعني عندما يأتي تاريخ اليوم المطلوب ي mohamedwasef35 4 648 08-03-20, 12:18 PM
آخر رد: aldery
  الترقيم التلقائى للخانة id فى المشروع المرفق المبرمج العتيق 5 867 09-01-20, 04:55 PM
آخر رد: asemshahen5
  كيفية إظهار القوائم الغير مختارة في الليست بوكس أمجد وضاح 2 552 08-01-20, 11:39 PM
آخر رد: أمجد وضاح

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم