DropDownList绑定DataTable

         Dim  qx  As   String ()
        qx  =   Split ( " 白色,兰色,黄色,黑色,红色 " ,  " , " )
         Dim  dt  As  DataTable  =   New  DataTable( " col " )
         Dim  dc  As  DataColumn  =   New  DataColumn( " str " )
        dt.Columns.Add(dc)
         Dim  n  As   Integer
         For  n  =   0   To  qx.Length  -   1
             Dim  dr  As  DataRow  =  dt.NewRow
            dr( 0 )  =  qx(n)
            dt.Rows.Add(dr)
         Next
 
        DropDownList1.DataTextField  =   " str "
        DropDownList1.DataValueField  =   " str "
        DropDownList1.DataSource  =  dt
        DropDownList1.DataBind()