- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]新增行赋值 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=130596)
-- 发布时间：2019/1/26 10:14:00
-- [求助]新增行赋值
窗口表以目录树[单位]列进行筛选，如果在筛选状态下进行新增行，新增行的[单位]列赋值为当前的筛选值，如图的“长清”，怎样写代码？
谢谢！
此主题相关图片如下：截屏图片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
-- 发布时间：2019/1/26 10:25:00
--
nr("单位") = r("单位")