靠树木赚钱项目(怎么做树木生意)
1 2024-09-24 02:23:36
在保存按钮的事件里:
treeview教程 treeview控件怎么用
1,保存当前编辑的节点
TreeNode selectedNode = this.treeView.SelectedNode;
2,把编辑好的数据保存到数据库
3.保存成功后,再调用下你的InitData()
4.this.treeView.selectedNode = selectedNode
在treeview1的AfterSelected事件里写
string nodeName = treeview1.SelectedNodes.Text;
然后用这个nodeName写成查询语句返回数据库里的数据
推荐您去这看看,这样的问题都有详细的解决方法,他们的java教程讲解的比较全,你可以去学习下,希望对你有帮助
这么简单 不值得一提 我是你大哥 叫哥
希望有点用,不要回我,要睡觉Dim m_strkey, m_strparentkey As String
Private Sub Form_Load()
Dim tree As ADODB.Recordset
Dim tr As String
On Error GoTo Errorhand
tr = "select from tbtree order by id ASC"
Set tree = ExecuteSQL(tr)
While Not tree.EOF
If tree("parentid") = 0 Then
Set firsttree = TreeView1.Nodes.Add(, , "key" & tree("id"), tree("context"), 1)
Else
Set firsttree = TreeView1.Nodes.Add("key" & tree("parentid"), tvwChild, "key" & tree("id"), tree("context"), 2)
End If
firsttree.EnsureVisible
tree.MoveNext
Wend
Exit Sub
Errorhand:
MsgBox Err.Description, vbExclamation
End SubPrivate Sub mnuAdd_Click()
Dim rs As New ADODB.Recordset
rs.Open "SELECT IIF (ISNULL (MAX(ID)), 1, MAX(ID)) AS ID_M FROM tbTree", cnn, adOpenStatic, adLockReadOnly
m_strkey = CStr(rs("ID_M") + 1)
With TreeView1
m_strparentkey = .SelectedItem.Key
.Nodes.Add(m_strparentkey, tvwChild, "key" & m_strkey, "新加结点", 1).Selected = True
.StartLabelEdit
End With
m_strparentkey = Mid(m_strparentkey, 4)
sql = "insert into tbtree values(" & m_strkey & ",' 新加节点 '," & m_strparentkey & ")"
Set rs = ExecuteSQL(sql)
End Sub
Private Sub mnuDelete_Click()
Dim StrWhere As String
With TreeView1
If .SelectedItem.Key = "key1" Then
MsgBox "对不起,不能删除根点!"
Exit Sub
End If
Set treedele = ExecuteSQL("delete from tbtree where id=" & Mid(.SelectedItem.Key, 4) & " or parentid=" & Mid(.SelectedItem.Key, 4))
.Nodes.Remove (.SelectedItem.Key)
End With
End SubPrivate Sub TreeView1_BeforeLabelEdit(Cancel As Integer)
If m_bolAddFlag Then
Dim strSql As String
End If
End SubPrivate Sub mnuModify_Click()
With TreeView1
m_strkey = Mid(.SelectedItem.Key, 4)
.StartLabelEdit
End With
End SubPrivate Sub TreeView1_AfterLabelEdit(Cancel As Integer, NewString As String)
Set AdoRs4 = ExecuteSQL("update tbtree set context='" & NewString & "'where id=" & m_strkey)
End SubPrivate Sub TreeView1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = vbRightButton Then
PopupMenu Mnupopupp
End If
End Sub
请参考文件:
说啥好
离开了DB控件
连数据库都不会操作了
数据库里取数据 放到TREEVIEW里
TREEVIEW里的操作映射到数据库操作
刚好我看得教程里面有这个内容,需要的话可以把代码和教学视频发给你。
首先添加一个TreeView控件,后台代码如下。
protected void Page_Load(object sender, EventArgs e)
{BindDataBase();
TreeView1.ShowLines = true;//显示连接父节点与子节点间的线条
TreeView1.ExpandDepth = 1;//控件显示时所展开的层数
}public void BindDataBase()
{//实例化SqlConnection对象
SqlConnection sqlCon = new SqlConnection();
//实例化SqlConnection对象连接数据库的字符串
sqlCon.ConnectionString = "server=a\\mr;uid=sa;pwd=;database=db_Student";
//实例化SqlDataAdapter对象
SqlDataAdapter da = new SqlDataAdapter("select from tb_StuInfo", sqlCon);
//实例化数据集DataSet
DataSet ds = new DataSet();
da.Fill(ds, "tb_StuInfo");
//下面的方法动态添加了TreeView的根节点和子节点
//设置TreeView的根节点
TreeNode tree1 = new TreeNode("学生信息");
this.TreeView1.Nodes.Add(tree1);
for (int i = 0; i < ds.Tables["tb_StuInfo"].Rows.Count; i++)
{TreeNode tree2 = new TreeNode(ds.Tables["tb_StuInfo"].Rows[i][1].ToString(), ds.Tables["tb_StuInfo"].Rows[i][1].ToString());
tree1.ChildNodes.Add(tree2);
//显示TreeView根节点下的子节点
for (int j = 0; j < ds.Tables["tb_StuInfo"].Columns.Count; j++)
{TreeNode tree3 = new TreeNode(ds.Tables["tb_StuInfo"].Rows[i][j].ToString(), ds.Tables["tb_StuInfo"].Rows[i][j].ToString());
tree2.ChildNodes.Add(tree3);
}}
}
TreeView的DoubleClick事件是EventHandler类型,不是TreeViewEventHandler类型,这是因为该事件继承自Control类。
改为:
this.trv1.DoubleClick += new System.EventHandler(this.trv1_DoubleClick);
Dim XYID(1 To 1000) As Long, QQID As Long
Private Sub Form_Load()
TreeView1.Enabled = True
Dim Nodxx As Node
Set Nodxx = TreeView1.Nodes.Add(, , , 1)
Nodxx.Text = "根目录"
Nodxx.Image = "TP1"
TreeView1.LabelEdit = tvwManual
Set Nodxx = TreeView1.Nodes.Add(1, tvwChild, "A1", "二级目录1")
Nodxx.Image = "TP2"
Set Nodxx = TreeView1.Nodes.Add(1, tvwChild, "A2", "二级目录2")
Nodxx.Image = "TP2"
Set Nodxx = TreeView1.Nodes.Add(1, tvwChild, "A3", "二级目录3")
Nodxx.Image = "TP2"
...................................
Call SJK(db)
strSQL = "select from 数据表 Order By ID"
RS.Open strSQL, db, 1, 1
Do While Not RS.EOF
XYID(Nodxx.Index) = RS!Id '注意变量XYID()是全局变量,类型是Long
If RS!分类 = "二级目录1" Then
Set Nodxx = TreeView1.Nodes.Add("A1", tvwChild)
Nodxx.Text = RS!姓名
Nodxx.Image = "TP3"
Nodxx.Tag = "Site"
ElseIf RS!分类 = "二级目录2" Then
Set Nodxx = TreeView1.Nodes.Add("A2", tvwChild)
Nodxx.Text = RS!姓名
Nodxx.Image = "TP3"
Nodxx.Tag = "Site"
ElseIf RS!分类 = "二级目录3" Then
Set Nodxx = TreeView1.Nodes.Add("A3", tvwChild)
Nodxx.Text = RS!姓名
Nodxx.Image = "TP3"
Nodxx.Tag = "Site"
'.......................................
End If
RS.MoveNext
Loop
RS.Close
Set RS = Nothing
db.Close
Set db = Nothing
Nodxx.EnsureVisible
End Sub
Private Sub TreeView1_NodeClick(ByVal Node1 As Node)
If (Node1.Index - 1) > 0 And (Node1.Index - 1) < 100 Then
If Not XYID(Node1.Index - 1) = 0 Then
QQID = Val(XYID(Node1.Index - 1)) '注意变量QQID是全局变量,类型是Long
Call SJK(db)
strSQL = "select from 数据表 WHERE ID=" & QQID & ""
RS.Open strSQL, db, 3, 3
Label2.Caption = RS!姓名 '在Label2控件显示内容
'依照上面的语句,将内容显示在相关控件中,例如Text或Label
'..............................................
RS.Close
Set RS = Nothing
db.Close
Set db = Nothing
End If
End If
End Sub
说明:"TP1"、"TP2"、"TP3"是由ImageList控件提供的图片的关键字
窗体就是一个TreeView控件和一个ImageList,另外添加显示控件即可。