منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

(24-10-17, 02:50 PM)عبد العزيز البسكري كتب : [ -> ]السلام عليكم و رحمة الله و بركاته
مثلما ذكر أساتذتنا الأكارم ..أتأسف فعلا من كل قلبي ليس لعدم فتح الملف لأنه اشتغل معي بصورة عادية لكني وجدته يفوق مستوى معلوماتي
احتراماتي

وعليكم السلام 
ممكن  اخي /  عبد العزيز 
ان تقوم بضغطه  وارفاقه اذا سمحت 
منفعة لاخونا الكريم

اشكر الجميع لتفاعلهم وأخص الذكر الاخ السندباد والاخ عبدالعزيز والاصيلة .

السلام عليكم

غير الكود التالي 


الى التالي 

(25-10-17, 12:17 AM)sendbad100 كتب : [ -> ]السلام عليكم

غير الكود التالي 

PHP كود :

Set adoPrimaryRS = New Recordset
 adoPrimaryRS.Open "SHAPE {Select distinct Orderin.Id as الرقم, Orderin.Indate as [تاريخ الأمر], Orderin.RefId as [المرجع], Orderin.Refdate as [تاريخ المرجع], " _
 & "Orderin.Source as [الجهة الموردة], Orderin.Desc as [البيان], Orderin.PrintState as [Print], Orderin.UserId as المستخدم " _
 & "From Orderin INNER JOIN Itemindetail ON Orderin.Id = Itemindetail.Id  " + QryStMstr + " } AS ParentCMD APPEND ({Select Itemindetail.Id as الرقم,Itemindetail.ItemId as [كود الصنف], " _
 & "Items.ItemDesc as [اسم الصنف], Itemindetail.Qty as [الكمية], Items.Unit as [الوحدة], Itemindetail.Qtychar as [الكمية بالحروف] " _
 & "From Itemindetail,Items Where Items.Itemid=Itemindetail.Itemid Order by Itemindetail.ItemId} AS ChildCMD RELATE الرقم TO الرقم) AS ChildCMD", db, adOpenStatic, adLockOptimistic 


الى التالي 

PHP كود :

Set adoPrimaryRS = New Recordset
 adoPrimaryRS.Open "SHAPE {Select distinct Orderin.Id as الرقم, Orderin.Indate as [تاريخ الأمر], Orderin.RefId as [المرجع], Orderin.Refdate as [تاريخ المرجع], " _
 & "Orderin.Source as [الجهة الموردة], Orderin.Desc as [البيان], Orderin.PrintState as [Print], (SELECT Users.Username FROM Users WHERE  Users.UserId = Orderin.UserId ) AS [المستخدم]" _
 & "From Orderin INNER JOIN Itemindetail ON Orderin.Id = Itemindetail.Id  " + QryStMstr + " } AS ParentCMD APPEND ({Select Itemindetail.Id as الرقم,Itemindetail.ItemId as [كود الصنف], " _
 & "Items.ItemDesc as [اسم الصنف], Itemindetail.Qty as [الكمية], Items.Unit as [الوحدة], Itemindetail.Qtychar as [الكمية بالحروف] " _
 & "From Itemindetail,Items Where Items.Itemid=Itemindetail.Itemid Order by Itemindetail.ItemId} AS ChildCMD RELATE الرقم TO الرقم) AS ChildCMD", db, adOpenStatic, adLockOptimistic 


وعليكم أفضل السلام ورحمة الله وبركاته
وشكراً لك أخي السندباد وجزاك الله عنا خيراً ( select داخل select) ]دائماً اعجز عندها
لكن باقي مشكلة ظهور كود الصنف بشكل معكوس داخل DataGrid Child

(25-10-17, 12:32 AM)إبراهيم خشافه1 كتب : [ -> ]وشكراً لك أخي السندباد وجزاك الله عنا خيراً ( select داخل select) ]دائماً اعجز عندها
لكن باقي مشكلة ظهور كود الصنف بشكل معكوس داخل DataGrid Child

لا شكر على واجب

ربما السبب  من الادخال نفسه عند الحفظ    لانها مكتوبه  في قاعدة البيانات نفس ما تظهر  في البرنامج

إقتباس :( select داخل select) ]دائماً اعجز عندها

الاستعلام الذي قمت به جميل ومعقد ولا يقوم به الا مبدع.  اعتقد اني لم اعمل مثله من قبل.

(25-10-17, 12:45 AM)sendbad100 كتب : [ -> ]

(25-10-17, 12:32 AM)إبراهيم خشافه1 كتب : [ -> ]وشكراً لك أخي السندباد وجزاك الله عنا خيراً ( select داخل select) ]دائماً اعجز عندها
لكن باقي مشكلة ظهور كود الصنف بشكل معكوس داخل DataGrid Child

لا شكر على واجب

ربما السبب  من الادخال نفسه عند الحفظ    لانها مكتوبه  في قاعدة البيانات نفس ما تظهر  في البرنامج

إقتباس :( select داخل select) ]دائماً اعجز عندها

الاستعلام الذي قمت به جميل ومعقد ولا يقوم به الا مبدع.  اعتقد اني لم اعمل مثله من قبل.

صممت تكويد الاصناف في برنامجي ان يكون بشكل تلقائي حسب المجموعة وفي قاعدة البيانات يظهر تمام لاحظ الصورة :
ولا ادري لماذا تظهر البيانات معكوسة

بصرلحة لا اعلم السبب
هل من الممكن ان تتخلص من الشرطة الفاصلة "هي السبب "

لا يمكن الاستغناء عن الشرطة لأني استخدمها في تكويد الأصناف تلقائياً حسب جدول المجموعات (Categories)
لكن اعتقد أن المشكلة ظهرت بسبب خاصية RightToLeft للأدلة DataGrid