[求助]新增行赋值 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

窗口表以目录树[单位]列进行筛选，如果在筛选状态下进行新增行，新增行的[单位]列赋值为当前的筛选值，如图的“长清”，怎样写代码？

谢谢！

此主题相关图片如下：截屏图片4.jpg

Dim t As Table = Tables("通讯录_Table1")

Dim temp As String = t.Filter

msgbox(temp)

Dim r As Row = Tables("通讯录_Table1").Current

If r IsNot Nothing Then

Dim nr = Tables("通讯录_Table1").AddNew()

nr("单位") = ......

Else

Dim nr = Tables("通讯录_Table1").AddNew()

End If

With Tables("通讯录_Table1")

.Position = .Rows.Count - 1

End With

主题：[求助]新增行赋值