Combobox ListPopulating question.....

Edhy Rijo — Wed, 21 May 2008 11:15:05 GMT

Hi Trent,

I have the following code in the combo...

[quote][codesnippet]

Private Sub cboPolicySymbol_ListPopulating(ByVal e As MicroFour.StrataFrame.UI.ListPopulatingEventArgs) Handles cboPolicySymbol.ListPopulating

e.Parameters(0).Value = Me.PolicyBO1.FK_InsuranceCompany

End Sub

[/codesnippet][/quote]

I am populating the combo with a method I created in the BO:

[quote][codesnippet]

Public Sub FillPolicySymbolsByInsuranceCompany(ByVal InsuranceCompanyPrimaryKey As Int32)

Using cmd As New SqlCommand()

cmd.CommandText = String.Format("SELECT * FROM {0} WHERE FK_InsuranceCompany = " & InsuranceCompanyPrimaryKey.ToString(), Me.TableName)

Me.FillDataTable(cmd)

End Using

End Sub

[/codesnippet][/quote]

This is working fine, except when I add a new record and instead of saving I cancel it with the following code:

[quote][codesnippet]

Private Sub cmdCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCancel.Click

'-- Remove all Payments Schedule only when adding a new policy and this is cancelled.

If Me.PolicyBO1.EditingState = MicroFour.StrataFrame.Business.BusinessEditingState.Adding Then

DeleteAllPaymentSchedule()

End If

Me.PolicyBO1.Undo(MicroFour.StrataFrame.Business.BusinessUndoType.CurrentRowOnly)

Me.PaymentScheduleBO1.Undo(MicroFour.StrataFrame.Business.BusinessUndoType.AllRows)

Me.DialogResult = Windows.Forms.DialogResult.Cancel

End Sub

[/codesnippet][/quote]

I get the following error:

[quote][codesnippet]BusinessLayerException
The CurrentRow could not be evaluated because the CurrentRowIndex is out of range. Business object record count: 0. CurrentRowIndex: -1.

Source : MicroFour StrataFrame Business

Stack Trace:
   at MicroFour.StrataFrame.Business.BusinessLayer.get_CurrentRow()
   at IBS_BOL.PolicyBO.get_FK_InsuranceCompany() in E:\Visual Studio 2008 Projects\StrataFrame\Insurance Broker System (SF)\BOL\IBS_BOL\Main Forms BOs\PolicyBO.Designer.vb:line 358
   at IBS_UI.frmPolicy.cboPolicySymbol_ListPopulating(ListPopulatingEventArgs e) in E:\Visual Studio 2008 Projects\StrataFrame\Insurance Broker System (SF)\UI\Main Forms\frmPolicy.vb:line 176
   at MicroFour.StrataFrame.UI.Windows.Forms.ComboBox.RaiseListPopulatingEvent(ListPopulatingEventArgs e)
   at MicroFour.StrataFrame.UI.Windows.Forms.ListControl.PopulateComboFromBusinessObject(IListControl lstControl, Object[] Parameters)
   at MicroFour.StrataFrame.UI.Windows.Forms.ListControl.PopulateCombo(Control lstControl, Object[] Parameters)
   at MicroFour.StrataFrame.UI.Windows.Forms.ComboBox.PopulateCombo(Object[] Parameters)
   at MicroFour.StrataFrame.UI.Windows.Forms.ComboBox.Requery()
   at IBS_UI.frmPolicy.PolicyBO1_Navigated(NavigatedEventArgs e) in E:\Visual Studio 2008 Projects\StrataFrame\Insurance Broker System (SF)\UI\Main Forms\frmPolicy.vb:line 165
   at MicroFour.StrataFrame.Business.BusinessLayer.NavigatedEventHandler.Invoke(NavigatedEventArgs e)
   at MicroFour.StrataFrame.Business.BusinessLayer.raise_Navigated(NavigatedEventArgs e)
   at MicroFour.StrataFrame.Business.BusinessLayer.OnNavigated(NavigatedEventArgs e)
   at MicroFour.StrataFrame.Business.BusinessLayer.Navigate(BusinessNavigationDirection Direction, Int32 AbsoluteIndex, Object[] PrimaryKeyValues, Boolean AttemptToCheckRules, Boolean IsRefill)
   at MicroFour.StrataFrame.Business.BusinessLayer.RestoreCurrentRowIndex(Boolean RefreshUI)
   at MicroFour.StrataFrame.Business.BusinessLayer.Undo(BusinessUndoType UndoType)
   at IBS_UI.frmPolicy.cmdCancel_Click(Object sender, EventArgs e) in E:\Visual Studio 2008 Projects\StrataFrame\Insurance Broker System (SF)\UI\Main Forms\frmPolicy.vb:line 106
   at System.Windows.Forms.Control.OnClick(EventArgs e)
   at System.Windows.Forms.Button.OnClick(EventArgs e)
   at System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent)
   at System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
   at System.Windows.Forms.Control.WndProc(Message& m)
   at System.Windows.Forms.ButtonBase.WndProc(Message& m)
   at System.Windows.Forms.Button.WndProc(Message& m)
   at System.Windows.Forms.Control.ControlNativewindow.OnMessage(Message& m)
   at System.Windows.Forms.Control.ControlNativewindow.WndProc(Message& m)
   at System.Windows.Forms.Nativewindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
[/codesnippet][/quote]

If I replace the ComboBox Listpopulating with this code, it will fix the error, but I am not sure if this is something I should do with all my ComboBoxes ListPopulating event parameters....

[quote][codesnippet]

Private Sub cboPolicySymbol_ListPopulating(ByVal e As MicroFour.StrataFrame.UI.ListPopulatingEventArgs) Handles cboPolicySymbol.ListPopulating

If Me.PolicyBO1.CurrentRowIndex = -1 Then

e.Parameters(0).Value = 0

Else

e.Parameters(0).Value = Me.PolicyBO1.FK_InsuranceCompany

End If

End Sub

[/codesnippet][/quote]

P.S.

Sorry for the long post, but it was needed. :cool:

RE: Combobox ListPopulating question.....

Trent L. Taylor — Wed, 21 May 2008 11:15:05 GMT

Cool :cool:

RE: Combobox ListPopulating question.....

Edhy Rijo — Wed, 21 May 2008 10:57:29 GMT

Thanks Trent,

I applied the changes and tested and everything works fine.

RE: Combobox ListPopulating question.....

Trent L. Taylor — Wed, 21 May 2008 10:17:28 GMT

Yes, you will definiltey want to first see if there are any rows in the BO. Instead of testing on teh CurrentRowIndex, test on the BO count:

[codesnippet]If MyBo.Count > 0 Then
e.Parameters(0).Value = MyBo.Value
Else
e.Parameters(0).Value = -1 ' (Or whatever works for you)
End If[/codesnippet]

Another thing you might think about is using the Rowstate instead of the EditingState of the BO. For example:

[codesnippet]If MyBo.CurrentRow.RowState = Added Then
'-- Place your code here
End If [/codesnippet]

Ultimately this is a more true reflection of what is going on with the record than the EditingState (which is used more for interacting with the UI).

StrataFrame Forum » StrataFrame Application Framework - V1 » WinForms (How do I?) » Combobox ListPopulating question.....

Combobox ListPopulating question.....

RE: Combobox ListPopulating question.....

RE: Combobox ListPopulating question.....

RE: Combobox ListPopulating question.....