[حسن الجلب]

السلام عليكم ورحمه الله وبركاته عندي جدول في قاعدة البيانات اكسس وفيه ثلاث خلايا فيهم ارقام مختلفه عاوز كود يقارن بين الخلايا الثلاثه ويجلب أقل رقم فيهم واخر لجلب اعلي رقم فيهم وmin وmax وavg وشكرا لحضراتكم

[حسن الجلب]

السلام عليكم هل يوجد حل

[سعود]

وعليكم السلام ورحمة الله و بركاته
هل تريد البحث في القاعدة ام في شبيكة البيانات اللي هي DataGridView؟
وياليت لو تصور الفورم لانه قد يقصر الطريق نحو الايضاح.

[حسن الجلب]

ممكن تشرحلي الطريقتين
هو الكود انا لسه مطبقتهوش ولكن انا أريده لفعل اظر ما

[سعود]

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 هذا يصلح للترقيم التلقائي اما ان كان الموضوع يختلف فالافضل تصميم فكرتك الخاصة ليكون التعديل انسب وافضل من اجتهاداتنا الشخصية.