Skip to Content
0
Former Member
Dec 13, 2011 at 04:43 AM

Default value

31 Views

Hello experts, I'm struggling with this error. Every time I run my program my combobox value is always NULL and my screen painter will freeze and you need to exit SAP to use it again. Please check my code.

Sub AddItemCodeCombo()

        Dim oCompany As SAPbobsCOM.Company = SBO_Application.Company.GetDICompany
        Dim RS As SAPbobsCOM.Recordset
        Dim oCombo As SAPbouiCOM.ComboBox = oForm.Items.Item("cFrom").Specific

       
        Try
           If oCombo.ValidValues.Count > 0 Then
                For i As Integer = 0 To oCombo.ValidValues.Count - 1
                    oCombo.ValidValues.Remove(0, SAPbouiCOM.BoSearchKey.psk_Index)
                Next
            End If

            RS = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)
            RS.DoQuery("SELECT dbName, cmpName FROM [SBO-COMMON].dbo.SRGC")
            'RS.MoveFirst()

            'If RS.RecordCount > 0 Then

            Do While Not RS.EoF

                oCombo.ValidValues.Add(RS.Fields.Item(0).Value.ToString, RS.Fields.Item(1).Value.ToString)
               
                RS.MoveNext()

            Loop

            'End If
            oCombo.Select(0, SAPbouiCOM.BoSearchKey.psk_Index)


        Catch ex As Exception

            MessageBox.Show(ex.Message)

        Finally

            RS = Nothing

        End Try

    End Sub