تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مطلوب معاينة المثال والمساعدة في تعديل الكود وفقكم الله
#7
(29-01-19, 10:32 PM)asemshahen5 كتب :
PHP كود :
   Private Sub Button1_Click(sender As ObjectAs EventArgsHandles 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(StrSQLcn)
 
       Dim dt As New DataSet
        Dim dtview 
As New DataView
        da
.Fill(dtStrTableName)
 
       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:36 PM)فراس الغزي كتب :
(29-01-19, 10:32 PM)asemshahen5 كتب :
PHP كود :
   Private Sub Button1_Click(sender As ObjectAs EventArgsHandles 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(StrSQLcn)
 
       Dim dt As New DataSet
        Dim dtview 
As New DataView
        da
.Fill(dtStrTableName)
 
       dtview dt.Tables(StrTableName).DefaultView
        dtview
.RowFilter " [اسم المندوب]='" ComboBox1.Text "' and [التاريخ] >= '" &
 
       DateTimePicker1.Text "' And [التاريخ] <='" DateTimePicker2.Text "'"
 
       DataGridView1.DataSource dtview
    End Sub 

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

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

طيب  اخي  هل  هذا  الفيو  16  مثل الي  عندك  
لو  انت  معدل  عليه  يعني  

ممكن  تتطلع  عليه  وتشوفه  

كود :
SELECT DISTINCT 
                         dbo.SALEBILL.MN_NAME, FORMAT(dbo.SALEBILL.SALEDATE, 'MM-yyyy', 'en-US') AS SALEDA, dbo.SALEBILL.CUSTOMERNAME, 
                         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 RASEED
FROM            dbo.SALEBILL INNER JOIN
                         dbo.DET_CUSTOMERS ON dbo.SALEBILL.CUSTOMERNAME = dbo.DET_CUSTOMERS.CUS_NAME
GROUP BY dbo.SALEBILL.MN_NAME, dbo.SALEBILL.SALEDATE, dbo.SALEBILL.CUSTOMERNAME
((  لا أحد يمكن له  ان يحدد متى يموت ولكن هو  من يقدر  ان يحدد  كيف يعيش بعد الموت فالحياة والمماة بيد الله  لكن  حياتك بعد الموت بيدك  فلا  تندم  على شيء فاتك في الدنيا لربما يرزقك  الله  خير  منه في  الاخرة  او لربما  دفع الله  عنك به  شيأ  اعظم  ...  تلك  هي  مشيئة الله  عز  وجل )) 
الرد }}}
تم الشكر بواسطة:


الردود في هذا الموضوع
RE: مطلوب معاينة المثال والمساعدة في تعديل الكود وفقكم الله - بواسطة فراس الغزي - 29-01-19, 10:36 PM


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم