29-01-19, 10:36 PM
(آخر تعديل لهذه المشاركة : 29-01-19, 10:40 PM {2} بواسطة فراس الغزي.)
(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: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 تشوف بحاسبتي اخي
طيب اخي هل هذا الفيو 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(( لا أحد يمكن له ان يحدد متى يموت ولكن هو من يقدر ان يحدد كيف يعيش بعد الموت فالحياة والمماة بيد الله لكن حياتك بعد الموت بيدك فلا تندم على شيء فاتك في الدنيا لربما يرزقك الله خير منه في الاخرة او لربما دفع الله عنك به شيأ اعظم ... تلك هي مشيئة الله عز وجل ))
