چگونگی ایجاد یک فیلد برای جمع مقادیر بصورت دینامیک از داخل vb

[مرتضی حمزه ئی]

با سلام خدمت دوستان قبلا من خودم این سوال را مطرح کردم که چطوری از داخل برنامه واسه یک فیلد که کاربر آنر انتخاب کرده جمع آنرا در پایین صفحه گزارش نشان بدیم البته قبلش بگم که واسه کسانی که طراحی گزارش دینامیک مینویسند بدرد میخوره چون درحالت عادی که توی طراحی یک فیلد running total تعریف میکنیم وتابع جمع راواسه اش معرفی کرده وهر جای صفحه که خواستیم قرار میدیم ولی اگر طوری باشه کاربر به ازای فیلدهایی که واسه گزارشش انتخاب کرده بعضی ازفیلدهای عددی اون جمعشان در پایین هر صفحه بیاد بصورت زیر عمل میکنید
Dim crColumnFieldObj As CRAXdDRT.FieldObject

Dim CRTEST As RunningTotalFieldDefinition
Dim crBla As FieldObject
Set CRTEST = Report.RunningTotalFields.Add("SUM OF " & Report.Database.Tables.Item(1).Fields(i).Name & "")
CRTEST.SummaryType = crSTSum
CRTEST.SetSummarizedField Report.Database.Tables.Item(1).Fields(i).Name
(Set crColumnFieldObj = Report.Sections("PF").AddFieldObject(CRTEST, LENREP - 1100, 0