主题：[求助]窗口中的下拉目录树

If e.Node.Level = 2 Then '如果单击的是第二层节点
    Dim tr As Row
    Dim dr As DataRow = e.Node.DataRow '获取生成此节点的DataRow
    If e.Form.DropTable IsNot Nothing Then '如果下拉窗口是从表中打开
        tr = e.Form.DropTable.Current '获取此表的当前行
    Else '如果下拉窗口是通过DropdownBox打开
        Dim nm As String = e.Form.DropDownBox.BindingField '获取绑定的字段
        nm = nm.Split(".")(0) '获取绑定的表名
        tr = Tables(nm).Current '获取此表的当前行
    End If
    tr("供应商编号") = dr("公司编号")
    e.Form.DropDownBox.Value = tr("供应商编号") '这行不是多余的,省略此行,无法在表中正常使用此下拉窗口输入数据.
    Tables("供应商").Position = Tables("供应商").findRow(dr)
    e.Form.DropDownBox.CloseDropdown()
End If

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

新增按钮，直接置空

e.Form.Controls("TextBox1").Text = nothing

e.Form.Controls("TextBox2").Text = nothing

e.Form.Controls("TextBox3").Text = nothing

 下拉目录树代码没有问题。

 清空操作肯定是你datacolchanged事件或者textChanged事件有清除的代码。

 具体上传项目

新增按钮有问题。

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

点击浏览该文件:实验.table

1、新增按钮；

2、目录树事件

CurrentTableChanged 事件

If  CurrentTable.Name = "采购订单表.采购明细表" Then
    Dim tb As New DropTreeBuilder
    tb.SourceTable = DataTables("商品信息表") '指定目录树表
    tb.TreeCols = "产品一类|产品二类|产品三类|中文产品名称|产品编号" '指定用于生成目录树的列
    tb.SourceCols = "产品编号|中文产品名称" '指定数据来源列
    tb.ReceiveCols = "产品编号|产品名称" '指定数据接收列
    Tables("采购订单表.采购明细表").Cols("产品编号").DropTree = tb.Build()
End If