Dim da As New SqlClient.SqlDataAdapter("select job_no from offsale.jobdetails (nolock) where location='" & Session("frmlogin_var_area") & "'", mycon) Dim ds As New DataSet da.Fill(ds) mycon1.Close() da.Dispose() 'jobno.Items.Add("Select") If ds.Tables(0).Rows.Count > 0 Then 'txtjobno1.Text = ds.Tables(0).Rows(0).Item(0) & " " For i = 0 To (ds.Tables(0).Rows.Count - 1) 'jobno.Items.Add(ds.Tables(0).Rows(i).Item(0)) DropDownList1.Items.Add(ds.Tables(0).Rows(i).Item(0)) Next End If ds.Dispose()
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)