| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 623 人关注过本帖
标题:如何把下列代码改成修改treeview 控件节点
只看楼主 加入收藏
gms2008
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2008-11-17
收藏
 问题点数:0 回复次数:0 
如何把下列代码改成修改treeview 控件节点
Private Sub mnuTmlb_Click()
    Dim frm As New frmTmlb
    Dim rs As ADODB.Recordset
    Dim MaxID As Integer
    Dim szSQL As String
   
    On Error GoTo ErrHandler
    frm.Show vbModal
    If frm.IsCancelled = True Then
        Exit Sub
    End If
    '--------------------------------------
    Set rs = gadoCONN.Execute("SELECT Max(id) as MaxID FROM tbTmlb")
    If Not rs.EOF Then rs.MoveLast
    If Not rs.BOF Then rs.MoveFirst
    If rs.RecordCount >= 1 Then
        MaxID = ToInteger(rs("MaxID")) + 1
    Else
        MaxID = 1
    End If
    Set rs = Nothing
   
    szSQL = "INSERT INTO tbTmlb(id,name) VALUES(" & CStr(MaxID) & ",'" & frm.TmlbMC & "')"
    '添加到数据中
    gadoCONN.Execute szSQL
   
    '添加到树形控件中
    Call AddTmlbNode(MaxID, frm.TmlbMC)
   
    Exit Sub
ErrHandler:
    Set rs = Nothing
    ErrMessageBox "添加题目类别mnuTmlb_Click()", "提示"
End Sub
'添加题目类别到题库树上
Private Sub AddTmlbNode(ByVal Tmlb_id As Integer, ByVal tmmc As String)
    Dim Nodex As Node
   
    '添加到树形控件中
    Set Nodex = TreeView1.Nodes(1)  '树根
    Set Nodex = TreeView1.Nodes.Add(CStr(Nodex.Key), tvwChild, "TMLB_" & CStr(Tmlb_id), tmmc, 2, 2)
    Nodex.Tag = CStr(Tmlb_id)
   
    Set Nodex = TreeView1.Nodes.Add("TMLB_" & CStr(Tmlb_id), tvwChild, "TMLB_" & CStr(Tmlb_id) & "_0", "选择题", 3, 3)
    Nodex.Tag = "0"
    Set Nodex = TreeView1.Nodes.Add("TMLB_" & CStr(Tmlb_id), tvwChild, "TMLB_" & CStr(Tmlb_id) & "_1", "判断题", 3, 3)
    Nodex.Tag = "1"
End Sub
搜索更多相关主题的帖子: 节点 treeview 控件 代码 
2008-11-21 22:18
快速回复:如何把下列代码改成修改treeview 控件节点
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.022850 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved