编程过程中总会有些重复的东西，如果到处拷贝，既不容易维护，结构也很不清晰，这时候就可以把他们提取出来，根据其共性，架构属于自己的库，因为一直从事asp.net方面的开发，就结合实际情况，用vb.net举个例子。 asp.net方面的开发，就结合实际情况，用vb.net举个例子。

      在做进销存等软件的时候，经常会用到仓库、部门、类别等基础资料，而且这些东西会反复用到，最常使用的是使用DropDownList控件，如果还没有选定，就列出所有的信息，如果打开已有记录，就显示已选定的信息，功能很简单，就举个仓库的例子。

常用的代码如下，因为是个例子，异常处理就省略了：

（new store）.GetData 返还的是个DataTable，里面有主键”StoreID”，名称”StoreName”字段

Protected WithEvents DropStore As System.Web.UI.WebControls.DropDownList

‘绑定仓库DropDownList列表

‘如果StoreID=0，则选择内容为“”，否则选定该仓库

Private Sub BindStore(Optional ByVal StoreID As Integer = 0)

        DropStore.DataSource = (New Store).GetData

        dropstore.DataValueField=”StoreID”

        dropstore.DataTextField =”StoreName”

        DropStore.DataBind()

        Dim listitem As ListItem = New ListItem("", "0")

        dropclass.Items.Add(listitem)

        If StoreID=0 Then

              dropstore.SelectedIndex = dropstore.Items.Count – 1

        Else

              dropstore.Items.FindByValue(StoreID).Selected = True            

        End if

End Sub