|
楼主 |
发表于 2023-11-2 14:19
|
显示全部楼层
修改SQL_FRM窗体代码如下,即可:
- Private Sub Table_tree_NodeClick(ByVal Node As msComctlLib.Node)
- If InStr(6, Node.Key, "-") = 0 And Node.Children = 0 Then '判断Node是否为第1层,其中key格式:Node-1-2-3
- Call Tree_Add_Child(Table_tree, Node.Key, Node.Text)
- Node.Expanded = True
- Else
- If Node.Children > 0 Then '判断Node是否为第1层
- 'Node.Expanded = False
- 'Call Listbox_Init(Me.result_list, Select_SQL(Node.Text), True, 100)
- Me.sql_text = Me.sql_text & Node.Text & " "
- Else
- Me.sql_text = Me.sql_text & Split(Node.Text, " (")(0) & ","
- End If
- End If
- End Sub
复制代码 |
|