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
Post a Comment