>> ods = odata.proc_figetlookupfromtable("tbllistcustomerjobs", "ipkey", "cjobname", "icustomer", lcCustomer) >> cboCustomerJobs.DataSource = ods >> cboCustomerJobs.DataMember = "_lookup" >> cboCustomerJobs.DataTextField = "cdescription" >> cboCustomerJobs.DataValueField = "ipkey" >> Me.cboCustomerJobs.DataBind() >> >> Dim item As New ListItem >> item.Text = "All" >> item.Value = "-99999" >> cboCustomerJobs.Items.Add(item) >> ' ' Make wildcard list item selected >> cboCustomerJobs.SelectedIndex = cboCustomerJobs.Items.Count - 1 >>>>
>> <select name="cboCustomerJobs" id="cboCustomerJobs"> >> <option value="18281">1 & 2 TON TRUCKS </option> >> <option value="17160">1 TON & 2 TON TRUCKS </option> >> <option value="17161">BIG FORKLIFT STINGER </option> >> <option value="17162">BP AMOCO RENTAL </option> >> <option value="17164">Equ Slings </option> >> <option value="17163">EQUIPMENT SLINGS </option> >> <option value="17165">FOR EQUIPMENT SLINGS </option> >> <option value="17166">FOR SHOP USE </option> >> <option value="17977">H241 TUGGER SLING </option> >> <option value="18354">H315 TUGGER </option> >> <option value="19355">HACKSAW STAND </option> >> <option value="18286">HURRICANE SUPPLIS </option> >> <option value="18287">HURRICANE SUPPLY </option> >> <option value="17167">Load Test </option> >> <option value="17168">N/A </option> >> <option value="17169">NA </option> >> <option value="17170">ONE TON TRUCK </option> >> <option value="17171">PAINT BOOTH </option> >> <option value="17172">PERSTOCK SLINGS </option> >> <option value="17173">RENTAL FLEET </option> >> <option value="17174">REPAIRS/RECERTS </option> >> <option value="20754">REPLACEMENT SLING </option> >> <option value="17175">SHOP USE </option> >> <option value="17176">SLING RECERT </option> >> <option value="17177">SLING REPAIRS / RECERTS </option> >> <option value="17178">STRAP REPLACEMENT </option> >> <option selected="selected" value="-99999">All</option> >> >></select> >> >>>>
>> >> Private Sub btnGo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGo.Click >> Dim cjob As String >> cjob = cboCustomerJobs.SelectedItem.Value >> Response.Redirect("fi_outitems.aspx?cjob=" + cjob.Trim) >> End Sub >>>>