[فراس الغزي]

(11-09-18, 01:06 AM)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

السلام عليكم اخي الكريم بداية اشكرك اخي على هذا العمل والمساعدة
ولكن واجهتني مشكلة ايضا هي اني لما عملت المطلوب مني لما اطلب الفورم الخاص بيتاخر الا يشتغل ولما يشتغل بيطلع فاضي مع العلم اني ضفت بتم وضفت كوبو بوكس ودتا جريد فيو

اتمنى ان تساعدني في معرفة السبب