主题：窗口控從副本表字段拉入產生錯誤??

For  Each  nd As WinForm.TreeNode  In  trv.AllNodes
            If  nd.Checked   Then
                Dim  rts()  As   String =  nd.FullName.Split("\")
                Dim  val As   String =  ""
                For  i As   Integer =  0 To  rts.length -  1
                    If  val >  "" Then
                        val =  val  &  " And "
                    End If
                    val =  val  &  nms(i)  &  " = "  &  qts(i)  &  rts(i)  &  qts(i)
                Next
                If  flt >  "" Then
                    flt =  flt  &  " Or ("  &  val  &  ")"
                Else
                    flt =  val
                End If
            End If
        Next

3Q!! 我的代码也是这样,但是它会把节点下的也涵盖进来,万一该节点下有很多行,不是挂掉了吗??

 我记得我给你写过代码的啊，自己去翻翻自己的帖子。

        For  Each  nd As WinForm.TreeNode  In  trv.AllNodes
            If  nd.Checked   Then
                If nd.ParentNode Is Nothing OrElse nd.ParentNode.Checked = False Then
                    Dim  rts()  As   String =  nd.FullName.Split("\")
                    Dim  val As   String =  ""
                    For  i As   Integer =  0 To  rts.length -  1
                        If  val >  "" Then
                            val =  val  &  " And "
                        End If
                        val =  val  &  nms(i)  &  " = "  &  qts(i)  &  rts(i)  &  qts(i)
                    Next
                    If  flt >  "" Then
                        flt =  flt  &  " Or ("  &  val  &  ")"
                    Else
                        flt =  val
                    End If
                End If
            End If
        Next

多了 If nd.ParentNode Is Nothing OrElse nd.ParentNode.Checked = False Then就ok了,3Q!!

 

重新运行一次 内部函数treeview_cnt 才能重新计算 

 但是会出现这样

改成这样，text改成name

 

Dim tv As WinForm.TreeView = Forms("訊息主檔").Controls("Tvw_Left")
Dim str As String = Forms("訊息主檔").Controls("Cmb_FilterCol").text
If str > "" Then
    tv.BuildTree(Forms("訊息主檔").Controls("ComboBox_TB").Text,str.Replace(",","|"))
    For Each nd As WinForm.TreeNode In tv.AllNodes
        If IsDate(nd.Name) AndAlso nd.Name.Split(" ").Length > 1 AndAlso nd.Name.Split(" ")(1) = "00:00:00" Then
            nd.Text = nd.Name.Split(" ")(0)
        End If
        If nd.Nodes.Count > 0 Then   '  顯示統計
            nd.Text = nd.Name & " " & nd.Nodes.Count & " 筆"
        End If
    Next
    tv.Nodes.Insert("顯示所有資料",0)
    Dim ary As String() = str.Split(",")
    tv.nodes(0).text = tv.nodes(0).Name & " " &  DataTables(Forms("訊息主檔").Controls("ComboBox_TB").Text).GetValues(ary(ary.Length-1)).Count & " 筆"
    msgbox(tv.nodes(0).text)
End If

这是在哪一事件中??

内部函数treeview_cnt