110,499
社区成员
发帖
与我相关
我的任务
分享
Dim Query_F As Form, Data_D As Form
Private Sub TreeView1_AfterSelect(Byval sender As System.Object,ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
If e.Node.Text.IndexOf("查询")>= 0 Then
If Query_F Is Nothing Then Query_F = New QueryForm
Query_F.Show()
ElseIf e.Node.Text.IndexOf("添加")>= 0 Then
If Query_D Is Nothing Then Query_D = New DataForm
Query_D.Show()
End If
End Sub