ChooseFormList and EditText

Question

Hi,
I want to populate 2 edittext whith the "ItemCode" and "ItemName".
On the first edittext ("edt1"), i put an ChooseFormList (CFL) and near it a linkedbutton CFL ("btnCfl") and finally then second edittext for the ItemName ("edt2")
On the event et_CHOOSE_FROM_LIST and not BeforeAction :
Dim objCFLEvent As SAPbouiCOM.IChooseFromListEvent
Dim strUID As String
Dim objCFL As SAPbouiCOM.ChooseFromList
Dim objDataTable As SAPbouiCOM.DataTable
Dim strValue As String = ""
objCFLEvent = ItemEvent
strUID = objCFLEvent.ChooseFromListUID
objCFL = objForm.ChooseFromLists.Item(strUID)
'' Get the CFL selection ("ItemCode")
objDataTable = objCFLEvent.SelectedObjects
strValue = objDataTable.GetValue(0, 0)
If (pVal.ItemUID = "edt1") Or (pVal.ItemUID = "btnCfl") Then
   ' Set the UerDataSource on  the first Edit ("edt1")
           objForm.DataSources.UserDataSources.Item("edt1DS").ValueEx = strValue
   ' Get the second colums for the "ItemName" of the CFL
   strValue = objDataTable.GetValue(1, 0)
   ' Set value to the second Edit ("edt2")
   objItem = objForm.Items.Item("edt2")
   objEdit = objItem.Specific
   <u><b>objEdit.Value = strValue</b></u>
End If
For the "ItemCode", no probleme but,
at underlined bold line, if i push [Tab] on the first Edit ("edt1"), the CFL form open, i select an item, and i've got an error : "General Failure - SAPBouiCOM.IEditText.set_Value(String pVal)"
But if i click on the linked button, i'vent any error !!!
Please help me.. it's my first addon !!
PS: I use SAP BO 6.80 (2005A)

Answer 1

Here are som sample code:
Create CFL
ChooseFromListCreationParams cflCreator = (ChooseFromListCreationParams).sboApplication.CreateObject(BoCreatableObjectType.cot_ChooseFromListCreationParams);
cflCreator.UniqueID=”BOY_CFL1”; //UID for the CFL
cflCreator.MultiSelection = false;
cflCreator.ObjectType = ”4”; //See Bolinked object
SAPbouiCOM.ChooseFromList cfl = Form.ChooseFromLists.Add(cflCreator);
EditText et = (EditText)Form.Items.Item(”BOY_1”).Specific; //Must have alphaNumeric datasource
et.ChooseFromListUID = "BOY_CFL1";
et.ChooseFromListAlias = "ItemCode";
Catch CFL
if(pVal.ItemUID=="BOY_1" && pVal.EventType == BoEventTypes.et_CHOOSE_FROM_LIST) {
  ChooseFromListEvent cflEvent = (ChooseFromListEvent)pVal;
  string cflUID = cflEvent.ChooseFromListUID;
  if(!pVal.BeforeAction) {
    DataTable dt = cflEvent.SelectedObjects;
    if(dt!=null) {
      string værdi = dt.GetValue("ItemCode",0).ToString();
      eventForm.DataSources.UserDataSources.Item("BOY_UDS1").ValueEx = værdi;