كيف يمكن جمع عدة حقول

مساعدة اخوانى

up

SELECT Code,
       (SELECT SUM(OpenBalDebit) FROM Chart WHERE Code LIKE Chart_Base.Code + '*') AS SumOfOpenBalDebit
FROM Chart Chart_Base
GROUP BY Code
ORDER BY Code

اخي الكريم

والله لهلق ما عرفت شو المطلوب

قصدي اني ما فهمت

وشكرا

محمد شريقي

اخى محمد انظر هذا الرابط رابط شرح لنفس الموضوع

المطلوب اخى محمد هو جمع كل مجموعة حساب على حده وشكرا

اخواني أرجو منكم مراجعة هذه الموضوع

وإن شاء الله ستجدون الفائدة

ارجو ان الملف المرفق يفي بالغرض ولو اني مافهمت السئوال

tree.zip

أخي خالد..

أخي Rober..

الإخوة الذين شاركوا في الموضوع..

هذا هو تعديل الكود، وأرجو أن تشاركوني في مراجعة الناتج.

تعديل الكود:

Dim Table As New ADODB.Recordset
Dim i, j, sum As Integer

Private Sub Form_Activate()
MSFlexGrid1.Cols = 4
MSFlexGrid1.TextMatrix(0, 0) = "accno"
MSFlexGrid1.TextMatrix(0, 1) = "ref"
MSFlexGrid1.TextMatrix(0, 2) = "level"
MSFlexGrid1.TextMatrix(0, 3) = "amount"

'stringgrid1.RowCount := adotable1.RecordCount + 1;
'// VB
i = 1
Table.MoveFirst
Do Until Table.EOF = True
MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
MSFlexGrid1.TextMatrix(i, 0) = Table![Code]
MSFlexGrid1.TextMatrix(i, 1) = Table![Name]
MSFlexGrid1.TextMatrix(i, 2) = Table![Level]
MSFlexGrid1.TextMatrix(i, 3) = Table![OpenBalDebit]
i = i + 1
Table.MoveNext
Loop
End Sub



Private Sub Command1_Click()
For i = MSFlexGrid1.Rows - 1 To 1 Step -1
sum = 0
For j = 1 To MSFlexGrid1.Rows - 1 Step 1
If MSFlexGrid1.TextMatrix(i, 0) = MSFlexGrid1.TextMatrix(j, 1) Then
sum = sum + Val(MSFlexGrid1.TextMatrix(j, 3))
If sum > 0 Then
'// note : sum is integer
MSFlexGrid1.TextMatrix(i, 3) = sum
End If
End If
Next
Next
End Sub


Private Sub Form_Load()
	Table.Open "Chart", "Provider=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & App.Path & "\DB1.MDB", adOpenKeyset, adLockOptimistic
End Sub

وهذه هي صورة الناتج:

وهذا هو المشروع:

Project.rar

مع تحياتي

---------------------------------------------------------

من موضوعاتي في المنتدى

تخزين الملفات في قاعدة البيانات

الحصول على خصائص الحقول في قاعدة بيانات أكسس

كيف تعاين الخطوط غير المعدة في جهازك؟

كود ضبط شاشة التوقف وخلفية سطح المكتب