combo does not load values after form load in vb.net -


i have form need display data in combo box. data saved in database when open form again data disappears. following code. please in fixing.

private sub reqentryform_load(byval sender object, byval args eventargs)               searchonwarehseadapterfilldropdown()             cbodivision.dropdownstyle = infragistics.win.ultrawingrid.ultracombostyle.dropdownlist             cmbjobcode.dropdownstyle = infragistics.win.ultrawingrid.ultracombostyle.dropdownlist              end sub                private sub searchonwarehseadapterfilldropdown()                             ' wizard generated search method                             ' need call method method in custom code                             ' example, [form]_load or [button]_click                              dim recselected boolean                             dim whereclause string = string.empty                             dim dswarehseadapter system.data.dataset = epicor.mfg.ui.formfunctions.searchfunctions.listlookup(me.otrans, "warehseadapter", recselected, false, whereclause)                             if recselected                                             ' set epiultracombo properties                                             me.cbodivision.valuemember = "warehousecode"                                             me.cbodivision.datasource = dswarehseadapter                                             me.cbodivision.displaymember = "description"                                             dim fields() string = new string() {"description"}                                             me.cbodivision.setcolumnfilter(fields)                             end if             end sub              private sub searchonwhsebinadapterfilldropdown(row datarow)                             ' wizard generated search method                             ' need call method method in custom code                             ' example, [form]_load or [button]_click                              dim recselected boolean                             dim whereclause string = "warehousecode = '" + row("character02")+ "'"                             dim dswhsebinadapter system.data.dataset = epicor.mfg.ui.formfunctions.searchfunctions.listlookup(me.otrans, "whsebinadapter", recselected, false, whereclause)                             if recselected                                             ' set epiultracombo properties                                             me.cmbjobcode.valuemember = "description"                                             me.cmbjobcode.datasource = dswhsebinadapter                                             me.cmbjobcode.displaymember = "description"                                             dim fields() string = new string() {"description"}                                             me.cmbjobcode.setcolumnfilter(fields)                             end if             end sub             'dim iscode boolean             private sub reqhead_afterfieldchange(byval sender object, byval args datacolumnchangeeventargs)                             ' ** argument properties , uses **                             ' args.row("fieldname")                             ' args.column, args.proposedvalue, args.row                             ' add event handler code '               if iscode = true '               return '               end if  '               iscode = true                                 select case args.column.columnname                                                 case "character02"                                                 searchonwhsebinadapterfilldropdown(args.row)                                                 end select                 'iscode = false                     end sub                                 


Comments

Popular posts from this blog

php - failed to open stream: HTTP request failed! HTTP/1.0 400 Bad Request -

java - How to filter a backspace keyboard input -

java - Show Soft Keyboard when EditText Appears -