查人人中国名人网最省油中级车:VS,net 重载决策失败，原因是没有可调用的new
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/06 02:49:04
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
If Not Page.IsPostBack Then
Dim strconn As String = ConfigurationSettings.AppSettings("dsn")
Dim conn = New SqlConnection(strconn)
Dim adp As New SqlDataAdapter("select * from column", conn)
Dim ds As New DataSet
adp.Fill(ds, "column")
'以下语句将DataView对象绑定到DropDownList控件
Drop_column.DataSource = ds.Tables(0).DefaultView '指定数据源
Drop_column.DataTextField = "columnName" '绑定文本
Drop_column.DataValueField = "columncode" '绑定Value值
Drop_column.DataBind()
End If
End Sub
注，在定义adp时，显示的错误：重载决策失败，原因是没有可调用的new，为何？请指教。
'在此处放置初始化页的用户代码
If Not Page.IsPostBack Then
Dim strconn As String = ConfigurationSettings.AppSettings("dsn")
Dim conn = New SqlConnection(strconn)
Dim adp As New SqlDataAdapter("select * from column", conn)
Dim ds As New DataSet
adp.Fill(ds, "column")
'以下语句将DataView对象绑定到DropDownList控件
Drop_column.DataSource = ds.Tables(0).DefaultView '指定数据源
Drop_column.DataTextField = "columnName" '绑定文本
Drop_column.DataValueField = "columncode" '绑定Value值
Drop_column.DataBind()
End If
End Sub
注，在定义adp时，显示的错误：重载决策失败，原因是没有可调用的new，为何？请指教。