[جلال اليمني]

لدي استعلامين اثنين الاول يعود لاستخراج الرصيد السابق لعميل وجمعه في الفليكس جريد والإستعلام الآخر يقوم بعرض جميع الحركات للعميل
لكن تعثرت في أن أجعل الصف الاول مخصص فقط لعرض الرصيد السابق ثم الصفوف التالية لعرض باقي الحركات
يعني كيف أرتب فقط الاستعلام الاول ثم يليه الثاني داخل الجريد

[Taha Okla]

اصنع جدول جديد تخزن فيه هذه المعلومات والقيم 
وبعد الانتهاء اعرضها في الجريد أو التقرير ... وذلك بحسب ما حفظت فيه أو بحسب عمود جديد ضمن هذا الجدول ترقمه بحسب أهمية المعلومات..

ثم تمسح ما فيه استعداداً لطلب الاستعلام التالي...

[جلال اليمني]

هذا الاستعلام الاول وشغال
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]

استاذ طه اريد فقط ترتيب بحيث تظهر بالجريد صف اول يحتوي على الرصيد السابق وثم عملية البحث عن الحركات

---

المشكله تظهر لي النتيجة بعنوان الفلكس

---

طبعا إذا نفذت كل استعلام على حده تظهر النتيجة تمام المشكله عند دمجهم تطلع النتيجة الاولى بعنوان الفلكس

[Taha Okla]

إذا أردت أن تظهر في الصف الأول بعد العنوان
عليك أولاً إضافة سجل جديد في جدول العرض 
ثم تضع كود التعويض ضمن السطر الأول
وذلك من خلال الكود :

كود :

MSFlexGrid1.AddItem ""
MSFlexGrid1.TextMatrix(1, 0) = "1"
MSFlexGrid1.TextMatrix(1, 1) = "2"
MSFlexGrid1.TextMatrix(1, 2) = "3"

 مكان الأرقام قم بوضع القيم والبيانات التي تريدها أن تظهر فيها
وإن كانت خالية ضع مكانها قيمة خالية   ""

مع التجريب ستعرف أين وكيف وما ستعوضه في تلك الخانات..

[جلال اليمني]

سأحاول التجربه الان شكرا لك استاذي العزيز طه

[جلال اليمني]

الحمد لله تم حل المشكلة وشكرا لك اخي طه
تم اضافة سطر فارغ قبل عملية البحث عن طريق وتعبئته بالاستعلام الرصيد السابق
Msflexgrid1.Additem "", Msflexgrid1.RowSel