تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] سؤال عن فترة ركود صنف في برنامج مبيعات
#1
اريد ان يحدد العميل فترة لكل صنف اذا انقضت يرسل له البرنامج تنبيه بذلك
وبذلك فلكل صنف فترة مختلفة عن الاخر محفوظة في جدول الاصناف تحت اسم stagnation
واستعملت هذا الكود للاستعلام
Private Sub FlatButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FlatButton1.Click
        Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=small cashier.accdb")
        Dim da As New OleDbDataAdapter
        Dim dt As New DataTable
        da = New OleDbDataAdapter("select * from items where store > 0 and stagnation <> 0 ", con)
        da.Fill(dt)
        con.Open()
        If dt.Rows.Count > 0 Then
            DataGridView1.DataSource = dt
        Else
            Return
        End If
        Dim x As Integer
        Dim z As String
        For i As Integer = 0 To DataGridView1.Rows.Count - 1
            x = DataGridView1.Rows(i).Cells(13).Value
            z = DataGridView1.Rows(i).Cells(1).Value
            Dim daa As New OleDbDataAdapter
            Dim dtt As New DataTable
            daa = New OleDbDataAdapter("select iname_o, order_date from orders_d where cod = " & z & " and order_date < # " & today.addDays(-x) & " #    ", con)
            If dtt.Rows.Count = 0 Then
                daa.Fill(dtt)
                DataGridView2.DataSource = dtt
            Else
                Dim row As DataRow = dtt.NewRow
                row(0) = dtt.Rows(0)(0)
                row(1) = dtt.Rows(0)(1)

                dtt.Rows.Add(row)
                DataGridView2.DataSource = dtt
            End If
        Next
        MsgBox("تم")
    End Sub
في النهاية يظهر الاستعلام الاول في الداتا جريد الاولى سليم
ولا يظهر في الداتا جريد الثانية غير اسماء الجداول فقط ولا شئ تحتها
الرد }}}
تم الشكر بواسطة:
#2
استبدل مكان هذين السطرين
            If dtt.Rows.Count = 0 Then                                                                                                                                                                               
                daa.Fill(dtt)
اجعل daa.Fill(dtt) قبل بداية جملة if
 
وانتبه لهذ السطر
            If dtt.Rows.Count = 0 Then

هل انت متأكد من انك لا تريده هكذا 
            If dtt.Rows.Count > 0 Then
سورس كود برنامج محاسبة ومبيعات احترافي  -  سورس كود تطبيق ارسال رصيد من الجوال B4A
سورس كود تطبيق مبيعات للجوال
تيليجرام   Abo_anas_kahwaji@
واتساب 00963951283515
الرد }}}
تم الشكر بواسطة: علاء الكبابي
#3
(16-05-21, 06:32 PM)ابو انس كتب : استبدل مكان هذين السطرين
            If dtt.Rows.Count = 0 Then                                                                                                                     

عندما فعلت ذلك اصبح التكرار يغير قيم ال dtt في كل مرة وبذلك تظهر نتيجة واحدة للاستعلام في النهاية
الرد }}}
تم الشكر بواسطة:
#4
ما هي القيم المخزنة بكلا من x z هنا
x = DataGridView1.Rows(i).Cells(13).Value
z = DataGridView1.Rows(i).Cells(1).Value
الرد }}}
تم الشكر بواسطة: علاء الكبابي , ابراهيم ايبو
#5
بعد Dim dtt As New DataTable
اكتب dtt.clear
سورس كود برنامج محاسبة ومبيعات احترافي  -  سورس كود تطبيق ارسال رصيد من الجوال B4A
سورس كود تطبيق مبيعات للجوال
تيليجرام   Abo_anas_kahwaji@
واتساب 00963951283515
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو
#6
(16-05-21, 07:11 PM)أبو عبدالله الحلواني كتب : ما هي القيم المخزنة بكلا من x z  هنا
x = DataGridView1.Rows(i).Cells(13).Value
           z = DataGridView1.Rows(i).Cells(1).Value

1- كود الصنف
13- فترة الركود الخاصة به
الرد }}}
تم الشكر بواسطة:
#7
بعد محاولات كتير ده الكود النهائي للي ممكن يحتاجه

        Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=small cashier.accdb")
        Dim da As New OleDbDataAdapter
        Dim dt As New DataTable
        da = New OleDbDataAdapter("select * from items where store > 0 and stagnation <> 0 ", con)
        da.Fill(dt)
        con.Open()
        If dt.Rows.Count > 0 Then
            DataGridView1.DataSource = dt
        Else
            Return
        End If
        Dim x As Integer
        Dim z As String
        Dim dttt As New DataTable
        dttt.Columns.Add("اسم الصنف")
        dttt.Columns.Add("تاريخ اخر بيع")
        DataGridView2.DataSource = dttt
        For i As Integer = 0 To DataGridView1.Rows.Count - 1
            x = DataGridView1.Rows(i).Cells(13).Value
            z = DataGridView1.Rows(i).Cells(1).Value
            Dim daa As New OleDbDataAdapter
            Dim daaa As New OleDbDataAdapter
            Dim dtt As New DataTable
            Dim dtttt As New DataTable
            daa = New OleDbDataAdapter("select * from orders_d where cod = '" & z & "' and order_date < # " & Today.AddDays(-x) & " # ", con)
            daaa = New OleDbDataAdapter("select * from orders_d where cod = '" & z & "' and order_date > # " & Today.AddDays(-x) & " # ", con)
            daaa.Fill(dtttt)
            daa.Fill(dtt)
            If dtttt.Rows.Count > 0 Then
                If dtttt.Rows(0)(0) = dtt.Rows(0)(0) Then
                    'dtt.Clear()
                    'dtttt.Clear()
                Else
                    dtt.Clear()
                End If
            End If
            If dtt.Rows.Count > 0 Then
                Dim last As Integer = dtt.Rows.Count - 1
                Dim row As DataRow = dttt.NewRow
                row(0) = dtt.Rows(last)(2)
                row(1) = dtt.Rows(last)(6)
                dttt.Rows.Add(row)
                DataGridView2.DataSource = dttt
            End If

        Next
الرد }}}


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل على فاتورة مبيعات خالد كامل1 4 68 26-03-24, 10:49 PM
آخر رد: خالد كامل1
  [سؤال] أتمنى اجابة وافية:عمل برنامج بقاعدة بيانات SQL دون حاجة تثبيت SQLSERVER dr.programming 6 598 19-03-24, 08:56 AM
آخر رد: سلامه محمد11
  سؤال عن عملية حذف سجل من قاعدة البيانات assuhimi 3 249 11-02-24, 08:43 PM
آخر رد: assuhimi
Big Grin [سؤال] سؤال على السريع أبو خالد الشكري 0 176 29-01-24, 08:58 AM
آخر رد: أبو خالد الشكري
  [VB.NET] كيف يمكنني استظافة سوفت وير برنامج ادارة جهاز السي بي سي في المختبر الى برنامجي الحزين اليماني 2 282 15-01-24, 10:39 PM
آخر رد: الحزين اليماني
  سؤال بسيط يا احبتى فى الله خالد كامل1 4 314 07-01-24, 12:55 AM
آخر رد: Mujahef
  برنامج لحفظ اكوادي samsunggears 2 385 05-01-24, 12:57 AM
آخر رد: HALIM ELEULMA
  سؤال فى برمجة جهاز الباركود خالد كامل1 6 477 05-01-24, 12:25 AM
آخر رد: HALIM ELEULMA
  معرفة عدد الاشهر خلال فترة زمنيةمعينة boofa2022 0 170 01-01-24, 01:18 PM
آخر رد: boofa2022
  سؤال فى عمل تقرير مفصل خالد كامل1 1 271 26-12-23, 04:30 PM
آخر رد: تركي الحلواني

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


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