[kafi]

الف الف شكر
اخي ابو ايهاب

على تجاوبك معي، وعلى هذا الكود المكتوب بطريقة احترافية للغاية

اخي ابو ايهاب
قمت بكتابة كود لاظهار البيانات على الداتا جريد فيو، حتى استطيع رؤية القيم التي قد تم ادخالها الى قاعدة البيانات
[HTML]
Private Sub GetData()
Try
Dim x = From d In DB.Beda
Select d


Dim bsn As New BindingSource()
bsn.DataSource = x


' استعراض البيانات

DGV.DataSource = Nothing
DGV.Columns.Clear()
DGV.AutoGenerateColumns = False
DGV.ColumnCount = 4
DGV.DataSource = bsn
DGV.Columns(0).HeaderText = "اســـم المـــــادة"
DGV.Columns(1).HeaderText = "ســعر الشــراء"
DGV.Columns(2).HeaderText = "ســـعر المبيــع"
DGV.Columns(3).HeaderText = "ملاحظــــات"

DGV.Columns(0).DataPropertyName = "Beda_Name"
DGV.Columns(1).DataPropertyName = "shra_Price"
DGV.Columns(2).DataPropertyName = "Mabee_Price"
DGV.Columns(3).DataPropertyName = "Beda_Note"

Catch
End Try
End Sub


Private Sub Beda_List_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
GetData()
End Sub[/HTML]

الا ان هناك خطأ بالكود

ارجو ارشادي الى مكمن الخطأ
الف شكر
بارك الله فيك

مرفق ملف جديد