VB--树状结构增删改

 

功能按钮

Imports System.Windows.Forms

Public Class ZdyQdFrm
    Private Sub ZdyQdFrm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        LoadPub_cpt_type()
    End Sub
    ''' <summary>加载构件分类</summary>
    ''' <remarks></remarks>
    Private Sub LoadPub_cpt_type()
        Dim sql As String = Nothing
        Dim ds As DataSet = Nothing
        Dim type As Integer = 0
        sql = "Select Classtypename from prj_papertype_classname where pid=? or pid=? order by id"
        g_db.SqlParameters.Clear()
        g_db.SqlParameters.Add(2)
        g_db.SqlParameters.Add(3)
        If Not g_db.QueryInterfacePara(sql, ds, "加载构件分类出错！") Then
            Return
        ElseIf ds.Tables(0).Rows.Count = 0 Then
            Return
        End If
        Me.TVClass.Nodes.Clear()
        For i As Integer = 0 To ds.Tables(0).Rows.Count - 1
            Dim ClassName As String = CStr(ds.Tables(0).Rows(i).Item("Classtypename"))
            TVClass_Load(ClassName)
        Next

    End Sub

    ''' <summary>
    ''' 构件类型---树形加载
    ''' </summary>
    ''' <param name="ClassName"></param>
    ''' <remarks></remarks>
    Private Sub TVClass_Load(ClassName As String)
        Dim to1 As TreeNode = New TreeNode(ClassName)
        Dim sql As String = PubClass.SelectPub_cpt_classSql
        Dim ds As DataSet = Nothing
        g_db.SqlParameters.Clear()
        g_db.SqlParameters.Add(ClassName)
        If Not g_db.QueryInterfacePara(sql, ds, "查询构件类型表不成功！") Then Return