Skip to Content
0
Former Member
May 28, 2009 at 06:42 AM

Problem while clearing a combo box containing a null value

80 Views

Hi. I have to load a cmbSp combobox based on a value selected in cmbCr combo box. I get an error while clearing the cmbSp box "Invalid Field Name [66000 - 18]". I have mentioned the code below: The code

objcombo.ValidValues.Remove(0, SAPbouiCOM.BoSearchKey.psk_Index)

gives error alternatively while selecting the values from cmbCr.Plz help me out.

-


orec = objMain.objUtilities.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)

strSql = "Select t1.U_SpCode, t1.U_SpName from [@CS_CRSPD] as t1 join [@CS_CRSPH] as t2 on t1.DocEntry = t2.DocEntry and t2.U_CrCode='" & strCourse & "' "

orec.DoQuery(strSql)

objcombo = objForm.Items.Item("cmbSp").Specific

If objcombo.ValidValues.Count >= 0 Then

For intCount1 As Integer = 0 To objcombo.ValidValues.Count - 1

'For intCount1 As Integer = objcombo.ValidValues.Count - 1 To 0 Step -1

objcombo.ValidValues.Remove(0, SAPbouiCOM.BoSearchKey.psk_Index)

Next

If (objcombo.ValidValues.Count <= 0) Then

If objForm.Items.Item("cmbSp").Enabled = False Then

objForm.Items.Item("cmbSp").Enabled = True

End If

objcombo.ValidValues.Add("", "")

If (orec.RecordCount > 0) Then

For inti As Integer = 0 To orec.RecordCount - 1

objcombo.ValidValues.Add(orec.Fields.Item(0).Value, orec.Fields.Item(1).Value)

orec.MoveNext()

Next

End If

objcombo.Select(0, SAPbouiCOM.BoSearchKey.psk_Index)

End If

Else

For intCount1 As Integer = 1 To objcombo.ValidValues.Count

'For intCount1 As Integer = objcombo.ValidValues.Count To 1 Step -1

objcombo.ValidValues.Remove(0, SAPbouiCOM.BoSearchKey.psk_Index)

Next

If (objcombo.ValidValues.Count <= 0) Then

If objForm.Items.Item("cmbSp").Enabled = False Then

objForm.Items.Item("cmbSp").Enabled = True

End If

objcombo.ValidValues.Add("", "")

If (orec.RecordCount > 0) Then

For inti As Integer = 0 To orec.RecordCount - 1

objcombo.ValidValues.Add(orec.Fields.Item(0).Value, orec.Fields.Item(1).Value)

orec.MoveNext()

Next

End If

objcombo.Select(0, SAPbouiCOM.BoSearchKey.psk_Index)

End If

End If

objcombo = Nothing

Edited by: S.Sujata on May 28, 2009 8:43 AM

Edited by: S.Sujata on May 28, 2009 8:44 AM