لدي جدول فيه كالتالي :
رقم الصنف اسم الصنف الكمية السعر الأجمالي
1 برنامج 1 100
1 برنامج 1 100
1 برنامج 1 100
استخدمت هذا الكود لعرض البيانات في الفلكس جريد ولاكن اريد كود لعرضها في صطر واحد بعمليت الجمع هكذا :
رقم الصنف اسم الصنف الكمية السعر الأجمالي
1 برنامج 30 300
1 برنامج 3 300
هذا هو الكود الذي استخدمه ولاكن كيف اجمع الكمية والسعر واظهار في سطر واحد في الفلكس جريد
If rs.State = 1 Then rs.Close
rs.Open "select * from sandata where dateh Between #" & d3 & "# and #" & d4 & "#", DB, adOpenStatic, adLockPessimistic
If rs.EOF Then
MsgBox "لايوجد أصناف", vbInformation, "تنبيه"
Else
Do While Not rs.EOF
I = I + 1
grid.Rows = I + 1
grid.TextMatrix(I, 0) = rs("itemnom")
grid.TextMatrix(I, 1) = rs("itemsname")
grid.TextMatrix(I, 2) = rs("unit")
grid.TextMatrix(I, 3) = rs("price")
grid.TextMatrix(I, 4) = rs("total")
grid.TextMatrix(I, 5) = rs("dat")
grid.TextMatrix(I, 6) = rs("invno")
rs.MoveNext
Loop
End If
رقم الصنف اسم الصنف الكمية السعر الأجمالي
1 برنامج 1 100
1 برنامج 1 100
1 برنامج 1 100
استخدمت هذا الكود لعرض البيانات في الفلكس جريد ولاكن اريد كود لعرضها في صطر واحد بعمليت الجمع هكذا :
رقم الصنف اسم الصنف الكمية السعر الأجمالي
1 برنامج 30 300
1 برنامج 3 300
هذا هو الكود الذي استخدمه ولاكن كيف اجمع الكمية والسعر واظهار في سطر واحد في الفلكس جريد
If rs.State = 1 Then rs.Close
rs.Open "select * from sandata where dateh Between #" & d3 & "# and #" & d4 & "#", DB, adOpenStatic, adLockPessimistic
If rs.EOF Then
MsgBox "لايوجد أصناف", vbInformation, "تنبيه"
Else
Do While Not rs.EOF
I = I + 1
grid.Rows = I + 1
grid.TextMatrix(I, 0) = rs("itemnom")
grid.TextMatrix(I, 1) = rs("itemsname")
grid.TextMatrix(I, 2) = rs("unit")
grid.TextMatrix(I, 3) = rs("price")
grid.TextMatrix(I, 4) = rs("total")
grid.TextMatrix(I, 5) = rs("dat")
grid.TextMatrix(I, 6) = rs("invno")
rs.MoveNext
Loop
End If