تقييم الموضوع :
  • 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
سورس كود برنامج محاسبة ومبيعات احترافي ومتكامل- قم بالاطلاع على البرنامج 
 مجاناااااا
واتساب 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
سورس كود برنامج محاسبة ومبيعات احترافي ومتكامل- قم بالاطلاع على البرنامج 
 مجاناااااا
واتساب 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
الرد


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] سؤال عن داتا جريد فيو خالد20 2 110 10-06-21, 12:57 AM
آخر رد: خالد20
  طريقة لفتح نوافذ مبيعات مختلفة في نفس الوقت وكل فاتورة لها رقم تلقائي tfarejdz 8 719 04-06-21, 01:04 AM
آخر رد: ابراهيم ايبو
  [سؤال] سؤال حسن الجلب 1 120 04-06-21, 12:59 AM
آخر رد: mmaalmesry
  [سؤال] سؤال في تكست بوكس حسن الجلب 5 272 25-05-21, 09:39 PM
آخر رد: aljzazy
  سؤال في قاعدة if جيولوجي مبتدئ 4 270 23-05-21, 03:29 AM
آخر رد: جيولوجي مبتدئ
  [سؤال] سؤال مهم لو سمحت حسن الجلب 1 172 16-05-21, 06:21 PM
آخر رد: ابو انس
  مسح برنامج بدون قصد mostafa nada 1 201 15-05-21, 04:54 AM
آخر رد: اسامه الهرماوي
  [VB.NET] مشكلة في برنامج vb.net aliabdullah 3 325 13-05-21, 10:19 AM
آخر رد: Fantastico
  [سؤال] سؤال حول الحلقه التكراريه حسن الجلب 4 302 07-05-21, 07:00 AM
آخر رد: messry
  [سؤال] سؤال بسيط حسن الجلب 2 193 07-05-21, 12:44 AM
آخر رد: ابو انس

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


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