28-09-17, 01:33 AM
هذا تبسيط
كود :
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إقتباس :اذا أردت المساعدة من أي أحد لا تضع له مشروع فارغ
