Public Sub systemsList() Dim dt1 As New DataTable dt1 = GetUserName.sysTableData(Session("User")).ToString For x = 0 To dt1.Rows.Count - 1 systemL.Items.Add(dt1(x).ToString) Next If Page.IsPostBack = False Then Dim testData As New DataSet testData = sysTableData() systemL.DataSource = testData systemL.DataValueField = "description" systemL.DataTextField = "description" systemL.DataBind() End If End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)