(29-01-19, 03:50 PM)asemshahen5 كتب : ضع هذا الكود في الفورم 3 :

PHP كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim StrSQL As String = "SELECT DISTINCT  CUSTOMERNAME AS [اسم العميل], MN_NAME AS [اسم المندوب]," &
"DEBIT AS [العميل يطلب],CREDIT AS [العميل مطلوب],RASEED AS [الرصيد],SALEDATE As [التاريخ] " &
" From View_16 " 'Where MN_NAME='" & ComboBox1.Text & "' and SALEDATE Between '" & DateTimePicker1.Text & "' And '" &
        'DateTimePicker2.Text & "'"'

        Dim cn As New SqlConnection("Data Source=(Local);Initial Catalog=DB_SALES;Integrated Security=True")
        Dim StrTableName As String = "View_16"
        Dim da As New SqlDataAdapter(StrSQL, cn)
        Dim dt As New DataSet
        Dim dtview As New DataView
        da.Fill(dt, StrTableName)
        dtview = dt.Tables(StrTableName).DefaultView
        dtview.RowFilter = " [اسم المندوب]='" & ComboBox1.Text & "' and [التاريخ] >= '" &
        DateTimePicker1.Text & "' And [التاريخ] <='" & DateTimePicker2.Text & "'"
        DataGridView1.DataSource = dtview
    End Sub 


أعتذر منك عن عدم الرد في السابق بسبب ظروف عطل في كمبيوتري و انقطاع الكهرباء .

بالنسبة للفيو 18 هو :

PHP كود :

SELECT DISTINCT 
                         dbo.SALEBILL.MN_NAME, dbo.DET_CUSTOMERS.CUS_NAME, FORMAT(dbo.SALEBILL.SALEDATE, 'MM-yyyy', 'en-US') AS SALEDA, SUM(DISTINCT dbo.DET_CUSTOMERS.DEBIT) AS DEBIT, 
                         SUM(DISTINCT dbo.DET_CUSTOMERS.CREDIT) AS CREDIT, SUM(DISTINCT dbo.DET_CUSTOMERS.CREDIT - dbo.DET_CUSTOMERS.DEBIT) AS PALENS
FROM            dbo.DET_CUSTOMERS FULL OUTER JOIN
                         dbo.SALEBILL ON dbo.DET_CUSTOMERS.CUS_NAME = dbo.SALEBILL.CUSTOMERNAME
WHERE        (dbo.SALEBILL.MN_NAME IS NOT NULL)
GROUP BY dbo.DET_CUSTOMERS.CUS_NAME, dbo.SALEBILL.MN_NAME, dbo.SALEBILL.SALEDATE, FORMAT(dbo.SALEBILL.SALEDATE, 'MM-yyyy', 'en-US') 


(29-01-19, 09:56 PM)asemshahen5 كتب : بحث التاريخ لاي فورم

(29-01-19, 10:32 PM)asemshahen5 كتب :

PHP كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim StrSQL As String = "SELECT DISTINCT  CUSTOMERNAME AS [اسم العميل], MN_NAME AS [اسم المندوب]," &
"DEBIT AS [العميل يطلب],CREDIT AS [العميل مطلوب],RASEED AS [الرصيد],SALEDATE As [التاريخ] " &
" From View_16 "
        Dim cn As New SqlConnection("Data Source=(Local);Initial Catalog=DB_SALES;Integrated Security=True")
        Dim StrTableName As String = "View_16"
        Dim da As New SqlDataAdapter(StrSQL, cn)
        Dim dt As New DataSet
        Dim dtview As New DataView
        da.Fill(dt, StrTableName)
        dtview = dt.Tables(StrTableName).DefaultView
        dtview.RowFilter = " [اسم المندوب]='" & ComboBox1.Text & "' and [التاريخ] >= '" &
        DateTimePicker1.Text & "' And [التاريخ] <='" & DateTimePicker2.Text & "'"
        DataGridView1.DataSource = dtview
    End Sub 


هذا الكود شغال جربته عندي

(29-01-19, 10:36 PM)فراس الغزي كتب :

(29-01-19, 10:32 PM)asemshahen5 كتب :

PHP كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim StrSQL As String = "SELECT DISTINCT  CUSTOMERNAME AS [اسم العميل], MN_NAME AS [اسم المندوب]," &
"DEBIT AS [العميل يطلب],CREDIT AS [العميل مطلوب],RASEED AS [الرصيد],SALEDATE As [التاريخ] " &
" From View_16 "
        Dim cn As New SqlConnection("Data Source=(Local);Initial Catalog=DB_SALES;Integrated Security=True")
        Dim StrTableName As String = "View_16"
        Dim da As New SqlDataAdapter(StrSQL, cn)
        Dim dt As New DataSet
        Dim dtview As New DataView
        da.Fill(dt, StrTableName)
        dtview = dt.Tables(StrTableName).DefaultView
        dtview.RowFilter = " [اسم المندوب]='" & ComboBox1.Text & "' and [التاريخ] >= '" &
        DateTimePicker1.Text & "' And [التاريخ] <='" & DateTimePicker2.Text & "'"
        DataGridView1.DataSource = dtview
    End Sub 


هذا الكود شغال جربته عندي

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

(29-01-19, 10:41 PM)asemshahen5 كتب : لا اعرف ما يحصل معك :