السلام عليكم.اخواني هذا ملف للترقيم السنوي للاستاذ حريف برمجة وجدتو بالمنتدى و يعمل بطريقىة سليمة.فقط اريد ان يظهر الترقيم على الداتا غريد من اليمين لليسار.الان الترقيم يظهر على الداتاغريد هيك 2018_0001 اريده يظهر هيك 0001-2018
شكرا لكم اخواني
(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)
'إدراج التسلسل الجديد بعد عملية الحفظ
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