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

根本就不用改啊，内部函数

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 & " 筆"