جمع عمود فى الفليكس قرايد,

الاخوه اعضاء ومشرفى منتدانا العظيم

السلام عليكم ورحمة الله وبركاته

كل عام وانت بخير بمناسبة شهر رمضان الكريم

كان لدى استفسار حول جمع عمود فى الفليكس جرايد بعد الانتهاء من عملية البحث وكود البحث كالتالى

كود

Dim RS As New ADODB.Recordset

Dim Sql As String

Sql = "SELECT * FROM cash_account WHERE tdate " & "= #" & Format(DT1.Value, "yyyy/mm/dd") & "# " & " and saderorwared= '" & "2" & "'"

Set RS = Cn.Execute(Sql)

flex3.Clear

flex3.ColWidth(0) = 500

flex3.ColWidth(1) = 1000

flex3.ColWidth(2) = 1100

flex3.ColWidth(3) = 4200

flex3.ColWidth(4) = 1200

flex3.ColWidth(5) = 2000

flex3.TextMatrix(0, 0) = "ã "

flex3.TextMatrix(0, 1) = "ÇáæÞÊ"

flex3.TextMatrix(0, 2) = "ÇáÊÇÑíÎ"

flex3.TextMatrix(0, 3) = "ÇáÊæÖÜÜÜÜíÍ"

flex3.TextMatrix(0, 4) = "ÇíÑÇÏÇÊ"

' flex3.TextMatrix(0, 5) = "ãÏÝæÚÇÊ"

flex3.TextMatrix(0, 5) = "ÇÓã ÇáãÓÊÎÏã"

Dim I As Integer

flex3.ColAlignment(0) = 3

flex3.ColAlignment(1) = 3

flex3.ColAlignment(2) = 3

flex3.ColAlignment(3) = 3

flex3.ColAlignment(4) = 3

flex3.ColAlignment(5) = 3

I = 0

flex3.Rows = 1

Do Until RS.EOF

I = I + 1

flex3.Rows = I + 1

flex3.TextMatrix(I, 0) = I

flex3.TextMatrix(I, 1) = RS.Fields("ttime")

flex3.TextMatrix(I, 2) = RS.Fields("tdate")

flex3.TextMatrix(I, 3) = RS.Fields("note")

flex3.TextMatrix(I, 4) = RS.Fields("cridet")

'flex3.TextMatrix(I, 5) = RS.Fields("dept")

flex3.TextMatrix(I, 5) = RS.Fields("user")

RS.MoveNext

Loop

RS.Close

Set RS = Nothing

End Sub

اريد جمع العمود ('cridet) ووضع حاصل الجمع فى التكست الموجود على الفورم والمسمى txttotal

اتمنى ان يكون الكود والطلب واضح

شكرا لكم جميعا وفى انتظار ردكم

سلام الله عليكم