扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条
作者:朱录女 来源:ahcit 2007年11月7日
关键字: Windows
<iewc:treeview id=”treeview1” autoselect=false shoplus=true showlines=true expandlevel=2 runat=server> <iewc:treenode text=”科目” > <iewc:treenode text=”语文” /> <iewc:treenode text=”数学” /> <iewc:treenode text=”英语” /> </iewc:treenode> </iewc:treeview> |
<iewc:treeview id=”treeview2” runat=server> <iewc:treenode text=”喜爱的站点” > <iewc:treenode text=”中国DOTNET俱乐部” navigateurl=”http://www.chinaaspx..com” /> <iewc:treenode text=”国家基础教育资源网” navigateurl=”htt://www.cbern.gov.cn” /> </iewc:treenode> </iewc:treeview> |
Imports System.Data Imports System.Data.SqlClient Public Class tree1 Inherits System.Web.UI.Page Protected WithEvents Button1 As System.Web.UI.WebControls.Button Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid Protected WithEvents Label1 As System.Web.UI.WebControls.Label Protected WithEvents Label2 As System.Web.UI.WebControls.Label Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim strconnection As String = "server=zln\netsdk;uid=sa;pwd=sa;database=english" Dim conn As New SqlConnection(strconnection) conn.Open() Dim sql As String = "select * from zlk where kemu='" & Session("node").ToString & "'" Dim cmd As New SqlCommand(sql, conn) Dim da As SqlDataReader da = cmd.ExecuteReader DataGrid1.DataSource = da DataGrid1.DataBind() End Sub Private Sub TreeView1_SelectedIndexChange(ByVal sender As Object, ByVal e As Microsoft.Web.UI.WebControls.TreeViewSelectEventArgs) Handles TreeView1.SelectedIndexChange Dim ndsel As New Microsoft.Web.UI.WebControls.TreeNode() ndsel = TreeView1.GetNodeFromIndex(TreeView1.SelectedNodeIndex) Session("node") = ndsel.Text End Sub End Class |
如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。
现场直击|2021世界人工智能大会
直击5G创新地带,就在2021MWC上海
5G已至 转型当时——服务提供商如何把握转型的绝佳时机
寻找自己的Flag
华为开发者大会2020(Cloud)- 科技行者