جمع رکوردهای یک فیلد در vsflex

[kooroush]

با سلام خدمت تمام برنامه نویسای عزیز فارسی زبان !
من چند تا مشکل دارم اگه کسی میتونه کمکم کنه لطفا :
الف : پروژه ضمیمه رو دانلود کنید :
ب: داخل درایو d بریزیدش :
1- می خوام تعداد رکوردهایی که توی vsflex هست رو به دست بیارم وداخل label100 بریزمش !!!؟
2- می خوام وقتی روی جمع فروش کلیک شد جمع رکوردهای فیلد " قیمت کل " رو به دست بیاره و توی Label2000 نشون بده (تبصره : جمع رکوردهای فیلد " قیمت کل " هنگامی که توسط یک شرط vsflex فیلتر شد (مثلا جمع رکوردهای" حسین ایکس " که فیلتر مشه رو نشون بده )!
3- چطور می تونم فقط vsflex رو بفرستم برای چاپ

ممنون می شم کمکم کنید گره خورده اینجای پروژه ام !
با تشکر فرآوان از همه برنامه نویسان !


:متفکر:

[returnx]

1- می خوام تعداد رکوردهایی که توی vsflex هست رو به دست بیارم وداخل label100 بریزمش !!!؟

از این کد استفاده کن...

Label100.Caption = Adodc1.Recordset.RecordCount
در ضمن نحوه نام گذاری label هات رو عوض کن...
در ضمن جست جو یادت نره...

[kooroush]

لیبل رو همینجوری نام گذاری کردم !!!
خوب مشکلات دیگم رو چه طور رفع کنم !؟
ممنون می شم کمکم کنید توسایت نیست گشتم !!!

[hamed_vb]

فكر كنم ايشون منظورشون اينه كه نتيجه جستجو چند تا ركورد باشه؛ و تعداد اون نتيجه چند ركورد باشه رو نشون بده نه اينكه تعداد ركورد موجود توي يك Tabel.

[returnx]

2- می خوام وقتی روی جمع فروش کلیک شد جمع رکوردهای فیلد " قیمت کل " رو به دست بیاره و توی Label2000 نشون بده (تبصره : جمع رکوردهای فیلد " قیمت کل " هنگامی که توسط یک شرط vsflex فیلتر شد (مثلا جمع رکوردهای" حسین ایکس " که فیلتر مشه رو نشون بده )!

برای جمع از این کد استفاده کن:

For i = 1 To Adodc1.Recordset.RecordCount
fg.Col = 5
fg.Row = i
sum(i) = Val(fg.Text)
endp = i
Next i
For j = 1 To endp
sum_c = sum_c + sum(j)
Next j
Label2000.Caption = sum_c
البته شماره ستون مهمه من اینجا دادم 5 ...
تست کن اگه اشتباه بود شماره ستون رو تغییر بده...
البته این متغیر ها و آرایه ا رو تو General تعریف کن:

Dim sum(1 To 1000) As Double
Dim endp As Integer
Dim sum_c As Double

[kooroush]

ممنون از جوابتون !!!پام نتونستم تو پروژه پیاده اش کنم !!!پممنون می شم پروژه رو دانلود کنید و یک نگاهی بهش بندازین !!!
گره خوردم شدید !!!
یک دنیا ممنون !!

[returnx]

اینم پروژه اصلاح شده...