[حريف برمجة]

في حدث تحميل الفورم Beda_List ضع الكود التالي :

القديم -----

كود :

'SQLstr = "SELECT Beda_id,Beda_Name,Mabie_Price,shra_Price,(Mabie_Price-shra_Price) as rabh,Beda_Note From Beda Where [Beda_id]>29 and [Mabie_Price]<>0 and [shra_Price]<>0 ORDER BY Beda_Name"
        'LoadData(SQLstr)

القديم -----

استبدله بالجديد------

كود :

DataConnection()

Dim dp As New OleDbDataAdapter("SELECT Beda_id,Beda_Name,Mabie_Price,shra_Price,(Mabie_Price-shra_Price) as الربح,Beda_Note From Beda Where [Beda_id]>29 and [Mabie_Price]<>0 and [shra_Price]<>0 ORDER BY Beda_Name", Conn)
        Dim ds22 As New DataSet

        dp.Fill(ds22)

        DataGridView1.DataSource = ds22.Tables(0)

استبدله بالجديد ------

وراح تنحل كل مشاكلك ،،

بالتوفيق