[المبرمج الجديد]

السلام عليكم 

لماذا لا تظهر عندي بيانات الاصناف في SQL SERVER وايضا في الفيجول ستوديو لا تمتلئ الجدوال بالقيم   

 بحثث في قوقل لعلي اجد سبب للمشكله ولكن لم اجد  ؟

كود :

Public Class ITEMS_KEMEYAT

   Sub DETA()

       Dim DT As New DataTable
       Dim DA As New SqlClient.SqlDataAdapter("SELECT  TOP (100) PERCENT dbo.BUY_DET.ITEMNAME AS [اسم الصنف], SUM(DISTINCT dbo.BUY_DET.QTY) AS وارد, SUM(DISTINCT dbo.SALE_DET.QTY) AS صادر, SUM(DISTINCT dbo.REBUY_DET.QTY) AS [م.مشتريات], SUM(DISTINCT dbo.ReSale_Det.QTY) AS [م.مبيعات], dbo.BUY_DET.PRICE AS التكلفة, dbo.SALE_DET.PRICE AS البيع FROM   dbo.BUY_DET INNER JOIN dbo.SALE_DET ON dbo.BUY_DET.ITEMCODE = dbo.SALE_DET.ITEMCODE INNER JOIN dbo.REBUY_DET ON dbo.SALE_DET.ITEMCODE = dbo.REBUY_DET.ITEMCODE INNER JOIN dbo.ReSale_Det ON dbo.REBUY_DET.ITEMCODE = dbo.ReSale_Det.ITEMCODE GROUP BY dbo.BUY_DET.ITEMNAME, dbo.BUY_DET.PRICE, dbo.SALE_DET.PRICE ORDER BY [اسم الصنف]", SqlConn)
       DA.Fill(DT)

       DataGridView1.DataSource = DT


   End Sub


   Private Sub ITEMS_KEMEYAT_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       DETA()
   End Sub
End Class