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

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

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

---

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

---

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