15-01-22, 09:14 AM
السلام عليكم ورحمه الله وبركاته عندي جدول في قاعدة البيانات اكسس وفيه ثلاث خلايا فيهم ارقام مختلفه عاوز كود يقارن بين الخلايا الثلاثه ويجلب أقل رقم فيهم واخر لجلب اعلي رقم فيهم وmin وmax وavg وشكرا لحضراتكم
15-01-22, 09:14 AM
15-01-22, 12:45 PM
15-01-22, 05:35 PM
15-01-22, 08:03 PM
16-01-22, 12:40 AM
PHP كود :
Public Class Form1
Dim ax, ay As Integer, dr As Boolean
Dim apath As String = IO.Path.GetDirectoryName(Application.ExecutablePath)
Dim db As String = apath & "\db.accdb"
Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=" & db
Dim con As New OleDb.OleDbConnection(str)
Dim da As New OleDb.OleDbDataAdapter("select * from tb", con)
Dim cm As New OleDb.OleDbCommandBuilder(da)
Dim dt As New DataTable
Private Sub rep()
If Top >= Screen.PrimaryScreen.Bounds.Bottom Or Bottom <= 0 Then Top = 0
If Left >= Screen.PrimaryScreen.Bounds.Right Or Right <= 0 Then Left = 0
End Sub
Private Sub gd(Optional ByVal pos As Integer = 0)
dt.Clear()
da.Fill(dt)
dgv.DataSource = Nothing
dgv.DataSource = dt
dgv.Columns(0).HeaderText = "الرقم"
dgv.Columns(1).HeaderText = "الاسم"
dgv.Columns(0).Width = 222
dgv.Columns(1).Width = 222
BindingContext(dt).Position = pos
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.Location = My.Settings.mloc
rep()
gd()
End Sub
Private Sub Form1_MouseDown(sender As Object, e As MouseEventArgs) Handles MyBase.MouseDown, Label2.MouseDown, Label1.MouseDown
If e.Button = MouseButtons.Left Then
dr = True
ax = MousePosition.X - Left
ay = MousePosition.Y - Top
End If
End Sub
Private Sub Form1_MouseMove(sender As Object, e As MouseEventArgs) Handles MyBase.MouseMove, Label2.MouseMove, Label1.MouseMove
If dr Then
Left = MousePosition.X - ax
Top = MousePosition.Y - ay
End If
End Sub
Private Sub Form1_MouseUp(sender As Object, e As MouseEventArgs) Handles MyBase.MouseUp, Label2.MouseUp, Label1.MouseUp
dr = False
End Sub
Private Sub btnmin_Click(sender As Object, e As EventArgs) Handles btnmin.Click
Me.WindowState = FormWindowState.Minimized
End Sub
Private Sub btnsave_Click(sender As Object, e As EventArgs) Handles btnsave.Click
Dim row As DataRow = dt.NewRow
row(1) = txtname.Text
dt.Rows.Add(row)
da.Update(dt)
Dim p As Integer = BindingContext(dt).Position
gd(p + 1)
End Sub
Private Sub btngetmaxvalue_Click(sender As Object, e As EventArgs) Handles btngetmaxvalue.Click
If dgv.Rows.Count = 0 Then Exit Sub
Dim count As Integer
count = BindingContext(dt).Count
Dim v As Integer
v = dt.Rows(count - 1).Item(0).ToString
lbltb.Text = v
count = dgv.Rows.Count
v = dgv.Rows(count - 1).Cells(0).Value
lbldg.Text = v
End Sub
Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
My.Settings.mloc = Me.Location
My.Settings.Save()
End Sub
Private Sub btnclose_Click(sender As Object, e As EventArgs) Handles btnclose.Click
Hide()
Close()
End Sub
End Class
الاكسس 2010 الفيجوال 2022 لو لم يعمل معك اي منهما الكلاس اعلاه هو كل شيء
يبدو اني عكست المطلوب جلبت الاعلى رقم والمطلوب اقل رقم . وحلها بسيط بتبديل الموضع position هذا يصلح للترقيم التلقائي اما ان كان الموضوع يختلف فالافضل تصميم فكرتك الخاصة ليكون التعديل انسب وافضل من اجتهاداتنا الشخصية.