programmermp
شنبه 17 شهریور 1386, 13:08 عصر
با سلام
من یک فرمولا فیلد در هدر صفحه گذاشتم که باید با کدنویسی از داخل دات نت مقدار دهی
بشه من از کدهای زیر استفاده کردم :
Dim f1 As FormulaFieldDefinition
Dim f2 As FormulaFieldDefinition
Dim f5 As FormulaFieldDefinitions
f5 = crpt.DataDefinition.FormulaFields
If cmbMonth.Text = NothingThen
cmbMonth.SelectedItem = "فروردین جاری"
Dim x AsString = cmbMonth.SelectedItem
MsgBox(x)
cmbMonth.Text = x
EndIf
f1 = f5.Item("LMonth")
f1.Text = "'" + cmbMonth.Text + "'"
f2 = f5.Item("LDate")
f2.Text = NumUD.Value
Me.RW1.ReportSource = crpt
این کدها جای دیگه واسه فرمولا فیلد دیگه جواب داده ولی سر این فرمولا فیلد LMonth
پیغام زیر رو می ده :
Invalid index. (Exception from HRESULT: 0x8002000B (DISP_E_BADINDEX))
خطا هم در خط زیر گرفته می شه :
f5 = crpt.DataDefinition.FormulaFields
مشکل چیه ؟
با تشکر فراوان
من یک فرمولا فیلد در هدر صفحه گذاشتم که باید با کدنویسی از داخل دات نت مقدار دهی
بشه من از کدهای زیر استفاده کردم :
Dim f1 As FormulaFieldDefinition
Dim f2 As FormulaFieldDefinition
Dim f5 As FormulaFieldDefinitions
f5 = crpt.DataDefinition.FormulaFields
If cmbMonth.Text = NothingThen
cmbMonth.SelectedItem = "فروردین جاری"
Dim x AsString = cmbMonth.SelectedItem
MsgBox(x)
cmbMonth.Text = x
EndIf
f1 = f5.Item("LMonth")
f1.Text = "'" + cmbMonth.Text + "'"
f2 = f5.Item("LDate")
f2.Text = NumUD.Value
Me.RW1.ReportSource = crpt
این کدها جای دیگه واسه فرمولا فیلد دیگه جواب داده ولی سر این فرمولا فیلد LMonth
پیغام زیر رو می ده :
Invalid index. (Exception from HRESULT: 0x8002000B (DISP_E_BADINDEX))
خطا هم در خط زیر گرفته می شه :
f5 = crpt.DataDefinition.FormulaFields
مشکل چیه ؟
با تشکر فراوان