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

 下拉控件的属性设置有问题，删除下拉项目的设置。

 看3楼，不行就上传例子。

 

测试没有问题。你删除bin文件夹，或重装foxtable看看

可能是bug，在afterLoad事件用代码绑定

 

e.Form.Controls("TextBox3").BindingField = "查詢作業_MAINTB.區域"

改一下代码

 

Case "顯示所有資料"
        If e.node.checked = False Then
            t.DataTable.LoadFilter=""
            t.DataTable.Load
           
            For Each nd As WinForm.TreeNode In tr1.allNodes '同步子节点选中状态
                nd.Checked = True
            Next
            e.node.checked = True
            flt =""

 写到选择事件啊，不是afterchecknode啊，当然，两个事件都要改

 内部函数代码，其余照着改 treeview_cnt

 

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.Text.Split(" ")(0)
        End If
        If nd.Nodes.Count > 0 Then   '  顯示統計
            nd.Text = nd.Text & " " & nd.Nodes.Count & " 筆"
        End If
    Next
    tv.Nodes.Insert("顯示所有資料",0)
    Dim ary As String() = str.Split(",")
    tv.nodes(0).text = tv.nodes(0).text & " " &  DataTables(Forms("訊息主檔").Controls("ComboBox_TB").Text).GetValues(ary(ary.Length-1)).Count & " 筆"
    msgbox(tv.nodes(0).text)
End If

第二个问题，AfterLoad代码

 

If getconfigvalue("目錄樹列表","") = "" Then
    Return
End If

'------設定tabcontrol 第0頁標題
Dim pgs As WinForm.TabControl = e.Form.Controls("TabControl1")
pgs.SelectedIndex=0
pgs.SelectedPage.Text=e.Form.Controls("ComboBox_TB").Text

'-------查詢欄 載入
If GetConfigValue("目錄樹列表1","") > "" Then
    e.Form.Controls("CheckedComboBox_ROW1").Text = GetConfigValue("目錄樹列表1","").Split("#")(1).Replace("|",",")
    e.Form.Controls("TextBox2").Text =   e.Form.Controls("CheckedComboBox_ROW1").Text
End If
e.Form.text =e.Form.Controls("ComboBox_TB").Text

e.Form.Controls("ComboBox_TB").Text = GetConfigValue("目錄樹列表","").Split("#")(0)
e.Form.Controls("Cmb_FilterCol").Text = GetConfigValue("目錄樹列表","").Split("#")(1).Replace("|",",")

'綁定recordgrig1
Dim rgd1 As WinForm.RecordGrid = e.Form.Controls("RecordGrid1")
rgd1.Table = Tables("查詢作業_MAINTB")'指定绑定表
rgd1.Build() '重新生成记录窗口
e.Form.Controls("TextBox3").BindingField = "查詢作業_MAINTB.備註"

 无语，你计算的是节点的个数啊。如果要计算表数据，参考来写 http://www.foxtable.com/help/topics/2741.htm

 

AfterCheckNode 事件，跟内外数据源没有任何关系，设置filter筛选是通用的。

 

具体怎么操作，出现什么问题？