[mrnooo2000]

(08-06-18, 04:34 AM)atefkhalf2004 كتب : الملف زلاحظ حضرتك العلامات الزرقاء

لا توجد بالملف أى مشاكل 
و هذا يعنى أن هناك مرجع ناقص عندك 
تأكد من الاشياء المحددة بالصور 

   

   

ملحوظة :-
استخدم الاستعلام الجديد فهو ابسط و اسهل فى التعامل

كود :

       Dim sql As String = "SELECT Q.atefinv, Q.itcod, Q.invsun, Q.purqu, Q.invqu, " &
                           "(SELECT SUM([purqu]-[invqu]) FROM [adraseed] WHERE [itcod]=[Q].[itcod] AND [atefinv] <= [Q].[atefinv]) AS Balance " &
                           "FROM (SELECT * FROM adraseed) AS Q INNER JOIN adraseed ON Q.atefinv = adraseed.atefinv " &
                           If(Chk_code.Checked, "WHERE Q.[itcod]= " & txtcode.Text, "")