+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [vb6.0] اظهار الرصيد السابق في اول صف في Msflexgrid (/showthread.php?tid=47032)
اظهار الرصيد السابق في اول صف في Msflexgrid - جلال اليمني - 25-09-23
لدي استعلامين اثنين الاول يعود لاستخراج الرصيد السابق لعميل وجمعه في الفليكس جريد والإستعلام الآخر يقوم بعرض جميع الحركات للعميل
لكن تعثرت في أن أجعل الصف الاول مخصص فقط لعرض الرصيد السابق ثم الصفوف التالية لعرض باقي الحركات
يعني كيف أرتب فقط الاستعلام الاول ثم يليه الثاني داخل الجريد
RE: اظهار الرصيد السابق في اول صف في Msflexgrid - Taha Okla - 26-09-23
اصنع جدول جديد تخزن فيه هذه المعلومات والقيم
وبعد الانتهاء اعرضها في الجريد أو التقرير ... وذلك بحسب ما حفظت فيه أو بحسب عمود جديد ضمن هذا الجدول ترقمه بحسب أهمية المعلومات..
ثم تمسح ما فيه استعداداً لطلب الاستعلام التالي...
RE: اظهار الرصيد السابق في اول صف في Msflexgrid - جلال اليمني - 26-09-23
هذا الاستعلام الاول وشغال
Dim SQL As String
SQL = "SELECT SUM(Debit) as SUMDebit , SUM(Credit) as SUMCredit from SupplierTrans where SupplierTrans.sup_id Like '" & (Text1.Text) & "' AND PurchaseDate < CONVERT(datetime,' " & DATE1 & " ',103) "
If Rs.State = adStateOpen Then Rs.Close
Rs.Open SQL, cn, adOpenDynamic, adLockOptimistic
If Not IsNull(Rs!SUMCredit) Then Text2.Text = (Rs!SUMCredit) Else Text2.Text = 0 ' ÇáãÈáÛ ßÊÇÈå
If Not IsNull(Rs!SUMDebit) Then Text3.Text = (Rs!SUMDebit) Else Text3.Text = 0 ' ÇáãÈáÛ ßÊÇÈå
MSFlexGrid1.TextMatrix(MSFlexGrid1.row, 1) = "ÑÕíÏ ÓÇÈÞ"
MSFlexGrid1.TextMatrix(MSFlexGrid1.row, 4) = "ÑÕíÏ ÓÇÈÞ"
If Not IsNull(Rs!SUMCredit) Then MSFlexGrid1.TextMatrix(MSFlexGrid1.row, 6) = (Rs!SUMCredit) Else MSFlexGrid1.TextMatrix(MSFlexGrid1.row, 6) = 0 ' ÇáãÈáÛ ßÊÇÈå
If Not IsNull(Rs!SUMDebit) Then MSFlexGrid1.TextMatrix(MSFlexGrid1.row, 5) = (Rs!SUMDebit) Else MSFlexGrid1.TextMatrix(MSFlexGrid1.row, 5) = 0 ' ÇáãÈáÛ ßÊÇÈå
Rs.Close
Set Rs = Nothing
End Su
وهذا الاستعلام الثاني
Dim SQL As String
SQL = "SELECT SUM(Debit) as SUMDebit , SUM(Credit) as SUMCredit from SupplierTrans where SupplierTrans.sup_id Like '" & (Text1.Text) & "' AND PurchaseDate < CONVERT(datetime,' " & DATE1 & " ',103) "
If Rs.State = adStateOpen Then Rs.Close
Rs.Open SQL, cn, adOpenDynamic, adLockOptimistic
If Not IsNull(Rs!SUMCredit) Then Text2.Text = (Rs!SUMCredit) Else Text2.Text = 0 ' ÇáãÈáÛ ßÊÇÈå
If Not IsNull(Rs!SUMDebit) Then Text3.Text = (Rs!SUMDebit) Else Text3.Text = 0 ' ÇáãÈáÛ ßÊÇÈå
MSFlexGrid1.TextMatrix(MSFlexGrid1.row, 1) = "ÑÕíÏ ÓÇÈÞ"
MSFlexGrid1.TextMatrix(MSFlexGrid1.row, 4) = "ÑÕíÏ ÓÇÈÞ"
If Not IsNull(Rs!SUMCredit) Then MSFlexGrid1.TextMatrix(MSFlexGrid1.row, 6) = (Rs!SUMCredit) Else MSFlexGrid1.TextMatrix(MSFlexGrid1.row, 6) = 0 ' ÇáãÈáÛ ßÊÇÈå
If Not IsNull(Rs!SUMDebit) Then MSFlexGrid1.TextMatrix(MSFlexGrid1.row, 5) = (Rs!SUMDebit) Else MSFlexGrid1.TextMatrix(MSFlexGrid1.row, 5) = 0 ' ÇáãÈáÛ ßÊÇÈå
Rs.Close
Set Rs = Nothing
End Sub
[/quote]
استاذ طه اريد فقط ترتيب بحيث تظهر بالجريد صف اول يحتوي على الرصيد السابق وثم عملية البحث عن الحركات
المشكله تظهر لي النتيجة بعنوان الفلكس
طبعا إذا نفذت كل استعلام على حده تظهر النتيجة تمام المشكله عند دمجهم تطلع النتيجة الاولى بعنوان الفلكس
RE: اظهار الرصيد السابق في اول صف في Msflexgrid - Taha Okla - 26-09-23
إذا أردت أن تظهر في الصف الأول بعد العنوان
عليك أولاً إضافة سجل جديد في جدول العرض
ثم تضع كود التعويض ضمن السطر الأول
وذلك من خلال الكود :
كود :
MSFlexGrid1.AddItem ""
MSFlexGrid1.TextMatrix(1, 0) = "1"
MSFlexGrid1.TextMatrix(1, 1) = "2"
MSFlexGrid1.TextMatrix(1, 2) = "3"مكان الأرقام قم بوضع القيم والبيانات التي تريدها أن تظهر فيها
وإن كانت خالية ضع مكانها قيمة خالية ""
مع التجريب ستعرف أين وكيف وما ستعوضه في تلك الخانات..
RE: اظهار الرصيد السابق في اول صف في Msflexgrid - جلال اليمني - 26-09-23
سأحاول التجربه الان شكرا لك استاذي العزيز طه
RE: اظهار الرصيد السابق في اول صف في Msflexgrid - جلال اليمني - 26-09-23
الحمد لله تم حل المشكلة وشكرا لك اخي طه
تم اضافة سطر فارغ قبل عملية البحث عن طريق وتعبئته بالاستعلام الرصيد السابق
Msflexgrid1.Additem "", Msflexgrid1.RowSel