Advanced Search

Return to Snippet

Revision: 11383
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