这里是一个类,存储字段的类 PublicClass ParmClass Parm Public str1 AsString Public str2 AsString Public str3 AsString Public str4 AsString Public str5 AsString Public DataKeyField AsString Public DataTextField AsString Public DataValueField AsString Public objCtr AsObject End Class
'返回sqldatareader(数据读取器)(用于查找数据) PublicFunction ReturnReader()Function ReturnReader(ByVal myParm As Parm) As SqlDataReader Dim Cmd As SqlCommand = ReturnCmd(myParm) Dim MyDtr As SqlDataReader = Cmd.ExecuteReader(CommandBehavior.CloseConnection) Return MyDtr End Function PublicFunction ReturnCmd()Function ReturnCmd(ByVal myParm As Parm) As SqlCommand con.Open() Dim Cmd As SqlCommand Cmd =New SqlCommand(myParm.str1, con) Cmd.CommandType = CommandType.StoredProcedure Return Cmd End Function '数据控件的数据绑定(通用于Dropdownlist,datagrid,datalist)(数据源是Datareader) PublicSub DataControlDataReaderBinding()Sub DataControlDataReaderBinding(ByVal myp As Parm) myp.objCtr.DataSource = ReturnReader(myp) IfTypeOf (myp.objCtr) Is DataList OrTypeOf (myp.objCtr) Is DataGrid Then If myp.DataKeyField <>""Then myp.objCtr.DataKeyField = myp.DataKeyField EndIf myp.objCtr.DataBind() ElseIfTypeOf (myp.objCtr) Is DropDownList Then myp.objCtr.DataTextField = myp.DataTextField myp.objCtr.DataValueField = myp.DataValueField myp.objCtr.DataBind() EndIf con.Close() End Sub
Dim myTest AsNew Test PrivateSub ddlBindClass()Sub ddlBindClass() Dim myParm AsNew Parm myParm.str1 ="sp_SelectNewsClass" myParm.objCtr = ddlBindNewsClass myParm.DataTextField ="ClassName" myTest.DataControlDataReaderBinding(myParm) End Sub