Add dropdown to native UltraGrid

What;s the error./

*Jose C Gomez*
*Software Engineer*
*
*
*
*T: 904.469.1524 mobile
E: jose@...
http://www.josecgomez.com
<http://www.linkedin.com/in/josecgomez> <http://www.facebook.com/josegomez>
<http://www.google.com/profiles/jose.gomez> <http://www.twitter.com/joc85>
<http://www.josecgomez.com/professional-resume/>
<http://www.josecgomez.com/feed/>
<http://www.usdoingstuff.com>

*Quis custodiet ipsos custodes?*



On Thu, Aug 2, 2012 at 4:42 PM, mmcwilliams22 <mmcwilliams22@...>wrote:

> **
>
>
> I am trying to add a dropdown to a column on a native ultragrid.
> I have used the following before on grids that I bind the dataset after
> the form has loaded(Initializelayout). However on a native grid it is not
> working. Any tips
> Dim v1 As ValueList
> v1 = e.Layout.ValueLists.Add("MyValueList")
> v1.ValueListItems.Add(1, "Bowed")
> v1.ValueListItems.Add(2, "OD Out of Tolerance")
> v1.ValueListItems.Add(3, "Wall Thickness Out of Tolerance ")
> v1.ValueListItems.Add(4, "Length Out of Tolerance")
> v1.ValueListItems.Add(5, "Poor OD Scarfic Cut,tool cut")
> v1.ValueListItems.Add(6, "Coil Defects")
> v1.ValueListItems.Add(7, "ID Bead Height Defects")
> v1.ValueListItems.Add(8, "Tube Weld Seam Defects")
> v1.ValueListItems.Add(9, "Mill Tooling Set-Up")
> v1.ValueListItems.Add(10, "Tube Surface Condition")
> v1.ValueListItems.Add(11, "End Condition")
> v1.ValueListItems.Add(12, "Tolerances Tighter than ASTM A513")
>
>
> e.Layout.Bands(0).Columns(9).ValueList = e.Layout.ValueLists("MyValueList")
>
>
>


[Non-text portions of this message have been removed]
I am trying to add a dropdown to a column on a native ultragrid.
I have used the following before on grids that I bind the dataset after the form has loaded(Initializelayout). However on a native grid it is not working. Any tips
Dim v1 As ValueList
v1 = e.Layout.ValueLists.Add("MyValueList")
v1.ValueListItems.Add(1, "Bowed")
v1.ValueListItems.Add(2, "OD Out of Tolerance")
v1.ValueListItems.Add(3, "Wall Thickness Out of Tolerance ")
v1.ValueListItems.Add(4, "Length Out of Tolerance")
v1.ValueListItems.Add(5, "Poor OD Scarfic Cut,tool cut")
v1.ValueListItems.Add(6, "Coil Defects")
v1.ValueListItems.Add(7, "ID Bead Height Defects")
v1.ValueListItems.Add(8, "Tube Weld Seam Defects")
v1.ValueListItems.Add(9, "Mill Tooling Set-Up")
v1.ValueListItems.Add(10, "Tube Surface Condition")
v1.ValueListItems.Add(11, "End Condition")
v1.ValueListItems.Add(12, "Tolerances Tighter than ASTM A513")


e.Layout.Bands(0).Columns(9).ValueList = e.Layout.ValueLists("MyValueList")