根本就不用改啊,内部函数
Dim tv As WinForm.TreeView = Forms("訊息主檔").Controls("Tvw_Left")
tv.nodes(0).text = tv.nodes(0).Name & " " & DataTables("訊息主檔").DataRows.Count & " 筆"
Dim ary As String() = Forms("訊息主檔").Controls("Cmb_FilterCol").Text.split(",")
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 & " " & DataTables("訊息主檔").Select(ary(nd.Level) & "='" & nd.Name & "'").count & " 筆"
'End If
Next
tv.Nodes.Insert("顯示所有資料",0)
tv.nodes(0).text = tv.nodes(0).Name & " " & DataTables(Forms("訊息主檔").Controls("ComboBox_TB").Text).DataRows.Count & " 筆"