تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] السلام عليكم
#1
السلام عليكم
عندي مشكله في استخدام فيجوال بيسك 2017 عندي قاعدة بيانات SQLite واعمل علي برنامج جرد المخازن مشتريات ومبيعات ومرتجع مورد ومرتجع زبون وعندي هذا الكود بيظهر عدد المشتريات فقط ويتجاهل عدد المبيعات وعدد المرتجعات اريد من الاخواه الافاضل المساعدة في حل هذه المشكله ولكم جزيل الشكر

هذا الكود يعرض نتيجه  qty فقط
وباقي الحقول لا يتم عرضاها مثل qtya,qtyb,qtyc
المشكله في هذا الجزء
اذا كانت
FROM Invoice WHERE  Qty IS NOT NULL AND ItmName IS NOT NULL AND ItmName <> '' GROUP BY ItmName, code ORDER BY ItmName"
اذا كانت FROM Invoice WHERE  Qty يعرض بيانات Qty
واذا كانت FROM Invoice WHERE  Qtya يعرض بيانات Qtya وهكذا
اريد حل هذه المشكله مع جزيل الشكر

Imports System.Data.SQLite


Public Class ForGARD

    
    Private Sub ForGARD_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Using conn As SQLiteConnection = DatabaseConnection.GetConnection()
            conn.Open()

            Dim query As String = "SELECT ItmName AS أسم_الصنف, code AS كود_الصنف, SUM(Qty) AS مشتريات, SUM(Qtya) AS مبيعات, SUM(Qtyb) AS مرتجع_زبون, SUM(Qtyc) AS مرتجع_مورد, SUM(Qty) - SUM(Qtya) - SUM(Qtyc) + SUM(Qtyb) AS المخزن FROM Invoice WHERE  Qty IS NOT NULL AND ItmName IS NOT NULL AND ItmName <> '' GROUP BY ItmName, code ORDER BY ItmName"

            Dim dt As New DataTable()

            Dim adapter As New SQLiteDataAdapter(query, conn)
            adapter.Fill(dt)

            For Each row As DataRow In dt.Rows
                Dim purchases As Integer = If(row("مشتريات") IsNot DBNull.Value, Convert.ToInt32(row("مشتريات")), 0)
                Dim sales As Integer = If(row("مبيعات") IsNot DBNull.Value, Convert.ToInt32(row("مبيعات")), 0)
                Dim customerReturns As Integer = If(row("مرتجع_زبون") IsNot DBNull.Value, Convert.ToInt32(row("مرتجع_زبون")), 0)
                Dim supplierReturns As Integer = If(row("مرتجع_مورد") IsNot DBNull.Value, Convert.ToInt32(row("مرتجع_مورد")), 0)

                row("مشتريات") = purchases
                row("مبيعات") = sales
                row("مرتجع_زبون") = customerReturns
                row("مرتجع_مورد") = supplierReturns
                row("المخزن") = purchases - sales - supplierReturns + customerReturns
            Next



            DataGridView1.DataSource = dt

            Dim columnWidths() As Integer = {200, 90, 90, 90, 90, 90, 90}

            For i As Integer = 0 To DataGridView1.Columns.Count - 1
                DataGridView1.Columns(i).Width = columnWidths(i)
            Next

           
        End Using

يا جماعة الخير الموقع رافض رفع الملف
الرد }}}
تم الشكر بواسطة:
#2
ارجو من السادة الافاضل حل هذه المشكله
رابط المشروع
https://top4top.io/downloadf-2990dc8gr0-rar.html
الرد }}}
تم الشكر بواسطة:
#3
مشكور يا اخي الكريم
الرد }}}
تم الشكر بواسطة:



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


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