主题：[求助]用目录树输入数据无法保存

产品名称和单价列是表达式列，是不能保存数据的。
将其改成数据列即可。

If e.Node.Level = 0 Then 
    Return
End If
Dim Vals() As String = e.Node.FullPath.Split("\")
Dim Filter As String = "[品牌] = '" & Vals(0) & "' And [货号] = '" & Vals(1) & "'"
Dim dr As DataRow = DataTables("产品目录").Find(Filter)
Dim r As Row = CurrentTable.Current
r("品牌") = dr("品牌")
r("货号") = dr("货号")
r("产品名称") = dr("产品名称")
r("单价") = dr("单价")
e.Form.Close()

CurrentTable；当前表，当前表有可以是主表，也可以是关联表，通俗点说就是焦点所在表。
Current，当前行，也就是焦点所在行。