老师好，筛选目录树显示数据后无法筛选。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:股票操作.rar

 无语，你根据就没写代码。

 AfterSelectNode事件

Dim s As String = e.Form.Controls("CheckedComboBox筛选树").Text
Dim Colstr() As String
Dim qts As String() = {"\'","#",""}
Dim trv As WinForm.TreeView = e.Sender
Dim flt As String = ""
Dim nd As WinForm.TreeNode
Dim pd As WinForm.TreeNode
Dim notchecked As Integer = 0
Colstr = s.split("|")
nd = e.Node
If nd.Name = "显示所有行" Then
    flt = ""
Else
    Dim rts() As String = nd.FullPath.Split("\\")
    Dim val As String = ""
    For i As Integer = 0 To rts.length - 1
        If e.Form.Controls("Tbl_Main").Table.DataTable.DataCols(Colstr(i)).IsString Then
            If rts(i) <> "空" Then
                If val > "" Then
                    val = val & " And "
                    val = val & Colstr(i) & " = " & qts(0) & rts(i) & qts(0)
                Else
                    val = val & Colstr(i) & " = " & qts(0) & rts(i) & qts(0)
                End If
            ElseIf rts(i) = "空" Then
                If val > "" Then
                    val = val & " And "
                    val = val & Colstr(i) & " Is Null"
                Else
                    val = val & Colstr(i) & " Is Null"
                End If
            End If
        ElseIf e.Form.Controls("Tbl_Main").Table.DataTable.DataCols(Colstr(i)).IsDate Then
            If rts(i) <> #0001-1-1 0:00:00# Then
                If val > "" Then
                    val = val & " And "
                    val = val & Colstr(i) & " = " & qts(1) & rts(i) & qts(1)
                Else
                    val = val & Colstr(i) & " = " & qts(1) & rts(i) & qts(1)
                End If
            ElseIf rts(i) = #0001-1-1 0:00:00# Then
                If val > "" Then
                    val = val & " And "
                    val = val & Colstr(i) & " Is Null"
                Else
                    val = val & Colstr(i) & " Is Null"
                End If
            End If
        ElseIf e.Form.Controls("Tbl_Main").Table.DataTable.DataCols(Colstr(i)).IsNumeric Then
            If rts(i) <> 0 Then
                If val > "" Then
                    val = val & " And "
                    val = val & Colstr(i) & " = " & qts(2) & rts(i) & qts(2)
                Else
                    val = val & Colstr(i) & " = " & qts(2) & rts(i) & qts(2)
                End If
            ElseIf rts(i) = 0 Then
                If val > "" Then
                    val = val & " And "
                    val = val & Colstr(i) & " Is Null"
                Else
                    val = val & Colstr(i) & " Is Null"
                End If
            End If
        ElseIf e.Form.Controls("Tbl_Main").Table.DataTable.DataCols(Colstr(i)).IsBoolean Then
            If rts(i) <> False Then
                If val > "" Then
                    val = val & " And "
                    val = val & Colstr(i) & " = " & qts(0) & True & qts(0)
                Else
                    val = val & Colstr(i) & " = " & qts(0) & True & qts(0)
                End If
            ElseIf rts(i) = False Then
                If val > "" Then
                    val = val & " And "
                    val = val & Colstr(i) & " = " & qts(0) & False & qts(0)
                Else
                    val = val & Colstr(i) & " = " & qts(0) & False & qts(0)
                End If
            End If
        End If
    Next
    If flt > "" Then
        flt = flt & " Or (" & val & ")"
    Else
        flt = val
    End If
End If

e.Form.Controls("Tbl_Main").Table.Filter = flt

 这个原因

http://www.foxtable.com/help/topics/1813.htm

老师上面问题解决了可是下面有来问题了，通过股票代码关联股票明细表添加行，同时复制股票名称内容下面代码不起作用。

If e.DataCol.Name = "股票代码" Then
    If e.NewValue Is Nothing Then
        e.DataRow("股票名称") = Nothing
        e.DataRow("板块") = Nothing
        e.DataRow("证交所") = Nothing
        e.DataRow("股票等级") = Nothing
    Else
        Dim dr As DataRow
        dr = DataTables("股票").Find("[股票代码] = \'" & e.NewValue & "\'")
        If dr IsNot Nothing
            e.DataRow("股票名称") = dr("股票名称")
            e.DataRow("板块") = dr("板块")
            e.DataRow("证交所") = dr("证交所")
            e.DataRow("股票等级") = dr("股票等级")
        End If
    End If
End If

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:股票操作.rar

呃....哪个窗口，什么操作后，代码不执行？