Revision: 11383
Initial Code
Initial URL
Initial Description
Initial Title
Initial Tags
Initial Language
at February 3, 2009 17:06 by siqingli
Initial Code
' must include: Imports System.Web.HttpContext Dim DS As New DataSet() Dim FilePath As String ''AspEnableParentPaths = True 'FilePath = Server.MapPath("~/App_Data/tlkpCodeValues.xml") FilePath = Current.Server.MapPath("App_Data\tlkpCodeValues.xml") DS.ReadXml(FilePath) Dim I As Integer strddl.Items.Clear() ' Display the result For I = 0 To DS.Tables(0).Rows.Count - 1 If DS.Tables(0).Rows(I).Item("CodeType") = strObjParm Then Dim newListItem As New ListItem newListItem.Value = DS.Tables(0).Rows(I).Item("Code_Val") newListItem.Text = DS.Tables(0).Rows(I).Item("ShortDescText") strddl.Items.Add(newListItem) End If Next strddl.Items.Insert(0, New ListItem("--Choose One--"))
Initial URL
Initial Description
Initial Title
fill a dripdwon with XML
Initial Tags
Initial Language
VB.NET