[asemshahen5]

أخي العزيز ضع هذا السكربت و نفذه

كود :

/****** Object:  View [dbo].[View_1]    Script Date: 9/10/2018 11:59:27 PM ******/
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER ON
GO

CREATE VIEW [dbo].[View_1]
AS
SELECT DISTINCT
                        dbo.SALE_DET.ITEMNAME, dbo.SALEBILL.SALEUSER, dbo.SALEBILL.MN_NAME, dbo.ITEMS.ITEM_TKLFA, dbo.SALEBILL.DISCOUND, SUM(dbo.SALE_DET.QTY) AS QTYN, dbo.SALE_DET.PRICE,
                        SUM((dbo.SALE_DET.PRICE - dbo.ITEMS.ITEM_TKLFA) * dbo.SALE_DET.QTY) AS ALReph
FROM            dbo.ITEMS INNER JOIN
                        dbo.SALE_DET ON dbo.ITEMS.ITEM_CODE = dbo.SALE_DET.ITEMCODE INNER JOIN
                        dbo.SALEBILL ON dbo.SALE_DET.SALECODE = dbo.SALEBILL.SALECODE
GROUP BY dbo.SALE_DET.ITEMNAME, dbo.SALEBILL.SALEUSER, dbo.SALEBILL.MN_NAME, dbo.ITEMS.ITEM_TKLFA, dbo.SALEBILL.DISCOUND, dbo.SALE_DET.PRICE

GO

ثم ضع هذا في الاستعلام الخاص بزر البحث :

كود :

       Dim StrSQL As String = "SELECT DISTINCT  ITEMNAME AS [اسم المنتج],MN_NAME AS [اسم المندوب],ITEM_TKLFA AS [سعر التكلفة],DISCOUND AS [الحسم],QTYN AS [الكمية],PRICE AS [سعر البيع],ALReph AS [الربح] From View_1 Where MN_NAME='" & ComboBox1.Text & "'"

---

ضع هذا الكود في حدث الفورم لود مع إضافة كومبو بوكس + داتا غريد فيوا + زر :

كود :

Dim StrSQL As String = "SELECT DISTINCT MN_NAME From View_1 "
       Dim cn As New SqlConnection("Server =(local);database=Test;integrated security=True")
       Dim da As New SqlDataAdapter(StrSQL, cn)
       Dim dt As New DataTable
       da.Fill(dt)
       For i As Integer = 0 To dt.Rows.Count - 1
           ComboBox1.Items.Add(dt.Rows(i)("MN_NAME").ToString)
       Next