<script language="vb" runat="server">
Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
If Not Page.IsPostBack Then
state.Items.Add("宋海涛")
state.Items.Add("管理员") End If
End Sub
Sub ShowAuthors(ByVal Sender As Object, ByVal E As EventArgs)
Dim con As New sqlconnection("server='hailang';uid=sa;pwd=;database=oasystem")
Dim cmd As New sqlcommand()
Dim qry As String
con.open()
qry = "select * from userinf where username='" + state.SelectedItem.Text + "'"
cmd = New sqlcommand(qry, con)
DataGrid1.DataSource() = cmd.ExecuteReader()
DataGrid1.DataBind()
con.Close()
End Sub
</script>
<body MS_POSITIONING="GridLayout">
<form id="Form1" method="post" runat="server">
State:<asp:DropDownList ID="state" Runat="server"/>
<asp:Button Text="show auther" OnClick="ShowAuthors" Runat="server"/>
</p>
<asp:DataGrid ID="DataGrid1" Runat="server"/>
</form>
</body>
我这个代码下拉菜单中为什么了
做了重复
就是有宋海涛
管理员
宋海涛
管理员
这个样子得
Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
If Not Page.IsPostBack Then
state.Items.Add("宋海涛")
state.Items.Add("管理员") End If
End Sub
Sub ShowAuthors(ByVal Sender As Object, ByVal E As EventArgs)
Dim con As New sqlconnection("server='hailang';uid=sa;pwd=;database=oasystem")
Dim cmd As New sqlcommand()
Dim qry As String
con.open()
qry = "select * from userinf where username='" + state.SelectedItem.Text + "'"
cmd = New sqlcommand(qry, con)
DataGrid1.DataSource() = cmd.ExecuteReader()
DataGrid1.DataBind()
con.Close()
End Sub
</script>
<body MS_POSITIONING="GridLayout">
<form id="Form1" method="post" runat="server">
State:<asp:DropDownList ID="state" Runat="server"/>
<asp:Button Text="show auther" OnClick="ShowAuthors" Runat="server"/>
</p>
<asp:DataGrid ID="DataGrid1" Runat="server"/>
</form>
</body>
我这个代码下拉菜单中为什么了
做了重复
就是有宋海涛
管理员
宋海涛
管理员
这个样子得
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货