我已经给弄晕了!

Question

1、是的。
2、
Private Sub wl1_Click()                          '删除节点
    Dim nodex
    Dim sqlStr As String
    Dim nodex1 As String
    Dim nodex2 As String
    
    nodex = OrgTree.SelectedItem.Key
    OrgTree.Nodes.Remove nodex
    If Left(nodex, 1) = "z" Then
        nodex1 = Right(nodex, Len(nodex) - 1)
        '如果数据库是SQL Server，去掉这个*号，比如下一句改为：
        'sqlStr = "delete from nu2 where 机构='" & nodex1 & "'"
        sqlStr = "delete * from nu2 where 机构='" & nodex1 & "'" '机构是字符型吧
        co.Execute strsql
            
        sqlStr = "delete * from nu1 where 机构编号=" & nodex1
        co.Execute strsql
    ElseIf Left(nodex, 1) = "f" Then
        nodex2 = Right(nodex, Len(nodex) - 1)
        '又是机构编号，又是机构ID，是不是有问题
        sqlStr = "delete * from nu1 where 机构表ID=" & nodex2
        co.Execute strsql
    End If
End Sub