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