动态添加节点
Private Sub cmdADDP_Click() '?ó?ù?úμ?
Dim txtSQL As String
Dim MsgText As String
Dim mrc As ADODB.Recordset
If Trim(parText) <> "" Then
'cmdADDC_Click
'If TreeView1.Nodes(parText).Parent Is Nothing Then
Set nodX = TreeView1.Nodes.Add(parText, tvwChild)
nodX.Key = "n" & zlbh.Text
nodX.Text = zlmc.Text
nodX.EnsureVisible
txtSQL = "insert dm_wzlb(lbcode,lb,lbcode1,lb1)values('" & Trim(TreeView1.Nodes(parText).Key) & "','" & Trim(TreeView1.Nodes(parText).Text) & "','" & nodX.Key & "','" & nodX.Text & "')"
Set mrc = ExecuteSQL(txtSQL, MsgText)
Else
Set nodX = TreeView1.Nodes.Add(, tvwChild)
nodX.Key = "n" & zlbh.Text
nodX.Text = zlmc.Text
txtSQL = "insert dm_wzlb (lbcode,lb,lbcode1,lb1) values ('r','root','" & nodX.Key & "','" & zlmc.Text & "')"
Set mrc = ExecuteSQL(txtSQL, MsgText)
End If
zlbh.Text = ""
zlmc.Text = ""
End Sub
Private Sub cmdADDP_Click() '?ó?ù?úμ?
Dim txtSQL As String
Dim MsgText As String
Dim mrc As ADODB.Recordset
If Trim(parText) <> "" Then
'cmdADDC_Click
'If TreeView1.Nodes(parText).Parent Is Nothing Then
Set nodX = TreeView1.Nodes.Add(parText, tvwChild)
nodX.Key = "n" & zlbh.Text
nodX.Text = zlmc.Text
nodX.EnsureVisible
txtSQL = "insert dm_wzlb(lbcode,lb,lbcode1,lb1)values('" & Trim(TreeView1.Nodes(parText).Key) & "','" & Trim(TreeView1.Nodes(parText).Text) & "','" & nodX.Key & "','" & nodX.Text & "')"
Set mrc = ExecuteSQL(txtSQL, MsgText)
Else
Set nodX = TreeView1.Nodes.Add(, tvwChild)
nodX.Key = "n" & zlbh.Text
nodX.Text = zlmc.Text
txtSQL = "insert dm_wzlb (lbcode,lb,lbcode1,lb1) values ('r','root','" & nodX.Key & "','" & zlmc.Text & "')"
Set mrc = ExecuteSQL(txtSQL, MsgText)
End If
zlbh.Text = ""
zlmc.Text = ""
End Sub
如果这些不满意的话。你可以参照这些样式来打造你自己的样式。
我用的是AjaxPro21.将TREE控件放在一个DIV中
2.页面加载时,调用javascript方法调用CS中的方法,获取控件的HTML数据内容(调用RenderControl()获取控件的HTML代码)
3.接下来便是字符串的操作,把相应的控件内容用新的HTML代码进行替换(在替换之前需要多多观察运行时控件的内容结构,找出特点或规律)。
4.然后把修改后的HTML代码返回给javascript方法,将内容赋给DIV显示。
<head runat="server">
<title>无标题页</title>
</head>
<body>
<form id="form1" runat="server">
<div>
<asp:TreeView runat="server" ID="TreeView1">
</asp:TreeView>
</div>
</form>
</body>
</html>/////////////////protected void Page_Load(object sender, EventArgs e)
{
TreeNode rootnode = new TreeNode();
TreeNode rootnode1 = new TreeNode();
rootnode1.Text = "rootnode1";
rootnode1.Value = "1";
TreeNode rootnode2 = new TreeNode();
rootnode2.Text = "rootnode2";
rootnode2.Value = "2";
TreeNode rootnode3 = new TreeNode();
rootnode3.Text = "rootnode3";
rootnode3.Value = "3"; TreeNode rootnodea = new TreeNode();
rootnodea.Text = "<table border='1'><tr><td>nodete</td></tr></table>";
rootnodea.Value = "4";
TreeNode rootnodeb = new TreeNode();
rootnodeb.Text = "<table border='1'><tr><td>nodete</td></tr></table>";
rootnodeb.Value = "5";
TreeNode rootnodec = new TreeNode();
rootnodec.Text = "<table border='1'><tr><td>nodete</td></tr></table>";
rootnodec.Value = "6";
rootnode1.ChildNodes.Add(rootnodea);
rootnode1.ChildNodes.Add(rootnodeb);
rootnode1.ChildNodes.Add(rootnodec);
rootnode.ChildNodes.Add(rootnode1);
rootnode.ChildNodes.Add(rootnode2);
rootnode.ChildNodes.Add(rootnode3);
TreeView1.Nodes.Add(rootnode);
TreeView1.NodeIndent = 0;
}这是C#的asp.net的web刚试过很好用只需要在Text复制的时候把它放在一个表格里行了~~
给你看看有没有灵感~
给你看看有没有灵感~