[hikmat]

استخدمت الكود التالي للحصول على أعلى قيمة في عمود مقابل عمود اخر فهل يوجد طريقة اخترافية اخرى لتنفيذ الكود
 Sub ser()
        Dim da As New OleDbDataAdapter("SELECT Tab_course.num, Tab_course.barcode_deploma, Tab_course.barcode_course, Tab_course.[year of course], Tab_course.start_date, Tab_course.end_date FROM Tab_course WHERE Tab_course.barcode_deploma='" & course_list.TextBox1.Text & "'", con)
        Dim dt As New DataTable
        da.Fill(dt)
        course_list.data_course_view.DataSource = dt
    End Sub
    Sub ex()
        Dim number As String
        Dim cmd As New OleDbCommand("select max(barcode_course) from Tab_course", con)
        con.Open()
        number = cmd.ExecuteScalar
        con.Close()
        MsgBox(number)

        Dim da As New OleDbDataAdapter("SELECT Tab_course.num, Tab_course.barcode_deploma, Tab_course.barcode_course, Tab_course.[year of course], Tab_course.start_date, Tab_course.end_date FROM Tab_course WHERE Tab_course.barcode_course='" & number & "'", con)
        Dim dt As New DataTable
        da.Fill(dt)
        course_list.data_course_view.DataSource = dt

[wale90]

هذا تبسيط

كود :

Sub ex()
       Dim da As New OleDbDataAdapter("SELECT * FROM Tab_course WHERE barcode_course=(SELECT MAX(barcode_course) FROM Tab_course)", con)
       Dim dt As New DataTable
       da.Fill(dt)
       course_list.data_course_view.DataSource = dt
End Sub