主题：[求助]使用筛选窗口时会改变表信息

窗口“目录树 - 资产分类“中下拉窗口中的Treeview事件的代码是，红色加粗的部分，修改就是固定资产选定行的值。

If e.Node.Level = 1 Then '如果单击的是第二层节点
    Dim ps() As String = e.Node.FullPath.Split("\")
    Dim tr As Row = Tables("固定资产").Current
    Dim dr As DataRow = DataTables("固定资产").Find("资产分类 = '" & ps(0) & "' And 资产名称 = '" & ps(1) & "'")
    If dr IsNot Nothing Then '如果在行政区域表找到对应的行,则将此行的值写入客户表的当前行.
        tr("资产分类") = dr("资产分类")
        tr("资产名称") = dr("资产名称")
        e.Form.DropDownBox.Value = tr("资产名称") '这行不是多余的,省略此行,无法在表中正常使用此下拉窗口输入数据.
    End If
    e.Form.DropDownBox.CloseDropdown()
End If

你把代码改为：

If e.Node.Level = 1 Then '如果单击的是第二层节点
      e.Form.DropDownBox.Value = e.node.text

      e.Form.DropDownBox.CloseDropdown()
End If

就行了。